AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

TCustomVariantType benutzen

Ein Thema von Flogo · begonnen am 20. Mai 2005 · letzter Beitrag vom 21. Mai 2005
 
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
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:37 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz