Einzelnen Beitrag anzeigen

Benutzerbild von Flogo
Flogo

Registriert seit: 24. Mär 2003
Ort: Freiburg im Breisgau
317 Beiträge
 
Delphi 7 Professional
 
#1

TCustomVariantType benutzen

  Alt 20. Mai 2005, 12:00
Hi,
Ich habe vor eine kleine Interpretersprache mit folgendem Aufbau zu schreiben:

Delphi-Quellcode:
TBefehlsBlock = class(TList)
  [...]
  public
    property Items[Index: Integer]: TBefehl [...]
  end;

  TBefehl = record
    BefehlsID: Integer;
    Argumente: Array of Variant;
  end;
Die Argumente eines Befehls sollten auch wieder Befehlsblöcke aufnehmen können. Aus diesem Grund will ich den Varianttyp erweitern. Mit der Hilfe bin ich so weit gekommen, dass ich jetzt einen packed record habe in dem mein Typ und einige Lückenfüller drinstehen
Delphi-Quellcode:
  TBefehlVarData = packed record
    VType: TVarType;
    Reserved1, Reserved2, Reserved3: Word;
    Befehle: TBefehlsBlock;
    Reserved4: LongInt;
  end;
Außerdem habe ich noch eine Klasse von TCustomVariantType abgeleitet

  TVarArgument = class(TCustomVariantType); Leider weiß ich jetzt nicht weiter. Die (englische ) OH benutzt hier einige Funktionen wie VarDataCopyInd ohne weiteren Kommentar und verweißt immer wieder auf Units, die ich in meiner PE nur als *.dcu hab.
Ich hoffe jemand kann mir einen Stoß in die richtige Richtung geben
If one coincidence can occur, then another coincidence can occur. And if one coincidence happens to occur just after another coincidence, then that is just a coincidence.
DNA

www.Anyxist.de
  Mit Zitat antworten Zitat