Question : Rangée variable de Delphes

J'ai une rangée variable de corde à Delphes. Comment est-ce que je peux vérifier ce qui évalue a été mis dans le showmesage de rangée c.-à-d. ou un certain contrôle visuel ? class= de

Réponse : Rangée variable de Delphes

J'emploie ces fonctions de service :

Variété MyVar : Variante ;

commencer
 MyVar : =… // font de l'initialisation

 ShowMessageFmt ('MyVar est du type %s et c'est valeur est « #13#10'% s »,
    [VariantTypeName (MyVar), VariantAsString (MyVar)]) ;
extrémité ;
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :
24 :
25 :
26 :
27 :
28 :
29 :
30 :
31 :
32 :
33 :
34 :
35 :
36 :
37 :
38 :
39 :
40 :
41 :
42 :
43 :
44 :
45 :
46 :
47 :
48 :
49 :
50 :
51 :
52 :
53 :
54 :
55 :
56 :
57 :
58 :
59 :
60 :
61 :
62 :
63 :
64 :
65 :
66 :
67 :
68 :
69 :
70 :
71 :
72 :
73 :
74 :
75 :
76 :
77 :
78 :
79 :
80 :

fonction VariantBasicTypeName (varVar : Variante) : Corde ;
variété
  basicType  : Nombre entier ;
commencer
  basicType : = VarType (varVar) et VarTypeMask ;
  basicType de cas de
    varEmpty     : Résultat : = « vider » ;
    varNull      : Résultat : = « nulle » ;
    varSmallInt  : Résultat : = « SmallInt » ;
    varInteger   : Résultat : = « nombre entier » ;
    varSingle    : Résultat : = « choisir » ;
    varDouble    : Résultat : = « double » ;
    varCurrency  : Résultat : = « devise » ;
    varDate      : Résultat : = « date » ;
    varOleStr    : Résultat : = « OleStr » ;
    varDispatch  : Résultat : = « expédition » ;
    varError     : Résultat : = « erreur » ;
    varBoolean   : Résultat : = « booléen » ;
    varVariant   : Résultat : = « variante » ;
    varUnknown   : Résultat : = « inconnu » ;
    varByte      : Résultat : = « byte » ;
{$ifdef VER140}
    varWord      : Résultat : = « mot » ;
    varLongWord  : Résultat : = « LongWord » ;
    varInt64     : Résultat : = « Int64 » ;
{$endif}    
    varStrArg    : Résultat : = « StrArg » ;
    varString    : Résultat : = « corde » ;
    varAny       : Résultat : = « quels » ;
    varTypeMask  : Résultat : = « TypeMask » ;
    Résultat d'autre : = format (« coutume (%d) », [basicType]) ;
  extrémité ;
extrémité ;

fonction VariantTypeName (varVar : Variante) : Corde ;
variété
  ExtType, I  : Nombre entier ;
commencer
 ExtType : = VarType (varVar) ;
 Résultat : =VariantBasicTypeName (varVar) ;
 si (ExtType et varArray) >0 alors
  commencer
   Résultat : =Result+'[';
   pour I : =1 à VarArrayDimCount (varVar) résultent : =Result+Format (« %d, », [VarArrayHighBound (varVar, I) - VarArrayLowBound (varVar, i)+1]) ;
   Résultat [longueur (résultat)]: = '] ';
  extrémité ;
 si (ExtType et varByRef) >0 résultent alors : = ' @ ' +Result ;
extrémité ;

fonction VariantAsString (varVar : Variante) : Corde ;
Variété
// L : TStringList ;
 basicType, I, j, faible : Nombre entier ;
commencer
 basicType : = VarType (varVar) et VarTypeMask ;
 si VarIsArray (varVar) puis
  commencer
   Obscurcir : =VarArrayDimCount (varVar) ;
   si Dim>2 alors
    commencer
     Résultat : = ' rangée '+VariantTypeName (varVar) ;
     Sortie ;
    extrémité ;
   Résultat : = ' [';
   si Dim=1
    Alors pour I : =VarArrayLowBound (varVar, 1) à VarArrayHighBound (varVar, 1) résultent : =Result+VariantAsString (varVar [I]) + ', '
    Autrement pour I : =VarArrayLowBound (varVar, 1) à VarArrayHighBound (varVar, 1) faire
     commencer
      Résultat : =Result+#13#10  [';
      pour j : =VarArrayLowBound (varVar, 2) à VarArrayHighBound (varVar, 2) résultent : =Result+VariantAsString (varVar [I, j]) + ', ';
      Résultat [longueur (résultat)]: = '] ';
      Résultat : =Result+, ';
     extrémité ;
   Résultat [longueur (résultat)]: = '] ';
  extrémité autrement
  commencer
   si VarIsEmpty (varVar) résultent alors : = ' (vide) 'autrement
   si VarIsNull (varVar) résultent alors : = ' (nulle) 'résultat d'autre : =VarToStr (varVar) ;
  extrémité ;
extrémité ;
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us