Vielleicht ginge es auch in etwa so:
Delphi-Quellcode:
type
tposition = class
x,y: integer;
constructor create(ax,ay: integer);
end;
constructor tposition.create(ax,ay: integer);
begin
x := ax;
y := ay;
end;
var s: tstringlist;
begin
s.addobject('a',tposition.create(10,20));
end;
auslesen müsste dann etwa so gehen (glaub ich):
Delphi-Quellcode:
var x,y: integer;
begin
x := Tposition(s[0]).x;
y := tposition(s[0]).y);
end;
ungetestet!