also ich hab jetzt mal testweise folgendes gemacht:
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var eintrag:pitem;
begin
new(eintrag);
eintrag^.zeile1:='test1';
eintrag^.zeile2:='test2';
eintrag^.zeile3:='test3';
ListBox1.Items.AddObject(eintrag^.zeile1, TObject(eintrag));
eintrag:=PItem(ListBox1.Items.Objects[ListBox1.ItemIndex]);
listbox1.Canvas.TextOut(0, 0, eintrag^.zeile1);
listbox1.Canvas.TextOut(0, 20, eintrag^.zeile2);
listbox1.Canvas.TextOut(0, 40, eintrag^.zeile3);
end;
lieder bleibt er bei der zeile
eintrag:=PItem(......);
mit folgender fehlermeldung stehen:
"List index out of bounds (-1)"
wenn ich fortsetze ist zwar der eintrag da mit dem inhalt aus "zeile1" aber mehr auch nicht. die restlichen zeilen fehlen.
btw: was bewirken die ^ ??
maddins