Zitat:
Delphi-Quellcode:
...
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;
Mit dem oberen stimme ich dir ja zu nur das untere?!?!
Ich würde es mal so versuchen:
Delphi-Quellcode:
TDataType = (vString,vInteger,...);
TData = record
case DataType: TDataType of
vString : (vString : PAnsiString);
vInteger : (vInteger: Integer);
vSingle : (vSingle : Single);
end;
MFG