Zitat von
stoxx:
Und das Array müsste dann ja auch einen Typ haben.
joar, drinnen muß man dann natürlich speichern was es ist.
statt TDataConverter könnte man auch überladene Funktionen/Prozeduren nutzen,
dieses würde dann auch unter älterten Delphi-Versionen (vor TD/D2006) laufen, wo es noch keine Operatoren gab.
Delphi-Quellcode:
TDataType = (dtInteger, dtRect, dtObject, usw.);
TData = record
FType : TDataType;
FIntegerValue: Integer;
FTRectValue: TRect;
Object: TObject;
usw ...
end;
TKeller = class(TObject)
procedure Push(const aData: Integer); Overload;
procedure Push(const aData: TRect); Overload;
procedure Push(const aData: TObject); Overload;
...
procedure Pop(const aData: Integer); Overload;
procedure Pop(const aData: TRect); Overload;
procedure Pop(const aData: TObject); Overload;
end;