Vraag : De verschillende serie van Delphi

Ik heb een verschillende serie van koord in Delphi. Hoe kan ik welke waarden in de serie d.w.z. showmesage of één of andere visuele controle controleren zijn gezet?

Antwoord : De verschillende serie van Delphi

Ik gebruik deze nutsfuncties:

Var MyVar: Variant;

begin
 MyVar: =… // doet wat initialisering

 ShowMessageFmt ('MyVar is van type %s en het is waarde is „#13#10'% s“,
    [VariantTypeName (MyVar), VariantAsString (MyVar)]);
eind;
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:

functie varVar VariantBasicTypeName (: Variant): Koord;
var
  basicType  : Geheel;
begin
  basicType: = (varVar) VarType en VarTypeMask;
  geval basicType van
    varEmpty     : Resultaat: = „Leeg“;
    varNull      : Resultaat: = „Verklaar“ nietig;
    varSmallInt  : Resultaat: = „SmallInt“;
    varInteger   : Resultaat: = „Geheel“;
    varSingle    : Resultaat: = „Kies“ uit;
    varDouble    : Resultaat: = „Dubbel“;
    varCurrency  : Resultaat: = „Munt“;
    varDate      : Resultaat: = „Datum“;
    varOleStr    : Resultaat: = „OleStr“;
    varDispatch  : Resultaat: = „Bericht“;
    varError     : Resultaat: = „Fout“;
    varBoolean   : Resultaat: = „Van Boole“;
    varVariant   : Resultaat: = „Variant“;
    varUnknown   : Resultaat: = „Onbekend“;
    varByte      : Resultaat: = „Byte“;
{$ifdef VER140}
    varWord      : Resultaat: = „Word“;
    varLongWord  : Resultaat: = „LongWord“;
    varInt64     : Resultaat: = „Int64“;
{$endif}    
    varStrArg    : Resultaat: = „StrArg“;
    het varString    : Resultaat: = „Koord“;
    varAny       : Resultaat: = „Om het even welk“;
    varTypeMask  : Resultaat: = „TypeMask“;
    Anders Resultaat: = Formaat („Douane (%d)“, [basicType]);
  eind;
eind;

functie varVar VariantTypeName (: Variant): Koord;
var
  ExtType, I  : Geheel;
begin
 ExtType: = (varVar) VarType;
 Resultaat: =VariantBasicTypeName (varVar);
 als (ExtType en varArray) >0 toen
  begin
   Resultaat: =Result+'[';
   voor I: =1 aan (varVar) VarArrayDimCount vloeien voort: =Result+Format („%d,“, [varVar VarArrayHighBound (, I) - varVar VarArrayLowBound (, I) +1]);
   Resultaat [Lengte (Resultaat)]: = '] ';
  eind;
 als (ExtType en varByRef) >0 dan voortvloeit: = ' @ ' +Result;
eind;

functie varVar VariantAsString (: Variant): Koord;
Var
// L: TStringList;
 basicType, verduistert I, j: Geheel;
begin
 basicType: = (varVar) VarType en VarTypeMask;
 als (varVar) VarIsArray toen
  begin
   Verduister: =VarArrayDimCount (varVar);
   als Dim>2 toen
    begin
     Resultaat: = ' (varVar) Serie '+VariantTypeName;
     Uitgang;
    eind;
   Resultaat: = ' [';
   als Dim=1
    Dan voor I: =VarArrayLowBound (varVar, 1) aan varVar VarArrayHighBound (, 1) voort vloeien: varVar =Result+VariantAsString ([I]) + ', '
    Anders voor I: =VarArrayLowBound (varVar, 1) aan varVar VarArrayHighBound (, 1) 
     begin
      Resultaat: =Result+#13#10  [';
      voor j: =VarArrayLowBound (varVar, 2) aan varVar VarArrayHighBound (, 2) voort vloeien: varVar =Result+VariantAsString ([I, j]) + ', ';
      Resultaat [Lengte (Resultaat)]: = '] ';
      Resultaat: =Result+, ';
     eind;
   Resultaat [Lengte (Resultaat)]: = '] ';
  eind anders
  begin
   als (varVar) VarIsEmpty Dan Resultaat: = ' (Leeg) 'anders
   als (varVar) VarIsNull Dan Resultaat: = ' (Ongeldig) 'Anders Resultaat: =VarToStr (varVar);
  eind;
eind;
Andere oplossingen  
 
programming4us programming4us