Zitat von
Sharky:
Hai Igotcha,
es sollte eigentlich so machbar sein:
Delphi-Quellcode:
type
PPrognoseData = ^TData;
PIstData = ^TData;
PPlanData = ^TData;
TData = record
FGid: integer;
FPid: integer;
FGroupid: integer;
FGBez: String;
FGTyp: integer;
FGColor: String;
FGS1: String;
FGOP1: String;
FGS2: String;
FGOP2: String;
FGS3: String;
FMonat: Array [0..16] of double;
end;
Ok, das wäre eine Simplifizierung der Record-Deklaration - schon mal gut
Aber wie kann ich jetzt dafür den Übergabeparameter in Proceduren definieren?
Delphi-Quellcode:
procedure DoSomething(atree: TVirtualStringTree; arecord: TData)
oder
procedure DoSomething(atree: TVirtualStringTree; arecord: ^TData)
Sorry, dass ich viel Frage, ohne es evtl. im Code zu testen, aber meine Anwendung hat im Moment ca. 60.000 Zeilen Code und bei der testweisen Änderung z.B. der Recorddefinition würde ich einen Tag sitzen, nur um den Code anzupassen, um dann evtl. festzustellen, dass es nicht funktioniert
Gruß Igotcha