Hallo,
ich füge einer Listbox ein Objekt zu, bekomme aber beim Auslesen eine Zugriffsverletzung. Ich verstehe aber nicht, warum!
Hier der Code:
<pre>
type
TData = class(TObject)
Filename : string;
end;
procedure TForm1.Button1Click(Sender: TObject);
var FData: TData;
begin
FData := TData.create;
FData.filename := 'c:\test';
listbox1.items.addObject('Test',FData);
FData.free;
end;
procedure TForm1.Button2Click(Sender: TObject);
var FData : TData;
begin
FData := TData(listbox1.items.objects[0]);
showmessage(FData.filename);
FData.free;
end;
</pre>
Wäre schön, wenn jemand helfen könnte. Danke!
Gruß Felix
ich füge einer Listbox ein Objekt zu, bekomme aber beim Auslesen eine Zugriffsverletzung. Ich verstehe aber nicht, warum!
Hier der Code:
<pre>
type
TData = class(TObject)
Filename : string;
end;
procedure TForm1.Button1Click(Sender: TObject);
var FData: TData;
begin
FData := TData.create;
FData.filename := 'c:\test';
listbox1.items.addObject('Test',FData);
FData.free;
end;
procedure TForm1.Button2Click(Sender: TObject);
var FData : TData;
begin
FData := TData(listbox1.items.objects[0]);
showmessage(FData.filename);
FData.free;
end;
</pre>
Wäre schön, wenn jemand helfen könnte. Danke!
Gruß Felix
Comment