Hallo Berlinermauer,
z.B.:
Delphi-Quellcode:
type
TmyPointer= ^TmyRecord;
TmyRecord= Record
rEintrag1: String;
rEintrag2: Integer;
End
;
An die Stringlist hängen:
Delphi-Quellcode:
p1:= @myRec1;
p2:= @myRec2;
myRec1.rEintrag1:= 'Das ist der erte Eintrag';
myRec1.rEintrag2:= 10001;
myRec2.rEintrag1:= 'Das ist der zweite Eintrag';
myRec2.rEintrag2:= 20002;
CobMitObject.Items.AddObject('Item1',TObject(p1));
CobMitObject.Items.AddObject('Item2',TObject(p2));
Und so auslesen:
Delphi-Quellcode:
p1:= TmyPointer (CobMitObject.Items.Objects[CobMitObject.ItemIndex]);
edEintrag1.Text:= p1.rEintrag1;
edEintrag2.Text:= inttostr(p1.rEintrag2);
Bis bald Chemiker