Hallo Zusammen.
Gegeben sein folgende Definition:
Delphi-Quellcode:
TMyRecordDef = record
Feldname : String;
Feldtype : TFeldtypen;
end;
TRecordDef = array of TMyRecordDef;
und z.B. folgende Initialisierung:
Delphi-Quellcode:
Const
SetupRecord : array[0..1] of TMyRecordDef = ((Feldname:'Magic';Feldtype:sqKeyText),
(Feldname:'Wert';Feldtype:sqText));
Leider muss ich jetzt immer folgendes machen:
Delphi-Quellcode:
Setlength(FRecordDef,length(SetupRecord));
Move(SetupRecord[0],FRecordDef[0],Sizeof(SetupRecord)); // Feld der Class
Weil die Typen nicht kompatible sind.
Da gibt es doch sicherlich ne "hübsche" Umgehung durch Generics, oder?
Mavarik