Hi , ich nochmal!
Ich will alle Selektierten Einträge der ListBox einfügen.
Delphi-Quellcode:
procedure Speichern;
var
i: integer;
Item: TOpenDialogEntity;
begin
if Assigned(ObjectList) then
FreeAndNil(ObjectList);
ObjectList := TObjectList.Create;
for i := 0 to ListBox1.Count-1 do
begin
if ListBox1.Selected[i]=True then
begin
Item := TOpenDialogEntity.Create;
Item.FileName := ListBox1.Items[i];
ObjectList.Add(Item);
end;
end;
end;
Kann das den überhaupt funktionieren? Den Ich übergebe der ObjektListe doch einen Zeiger auf Item.Aber da es ja eine Funktion ist und Item: TOpenDialogEntity; eine lokale Variable ist wird sie beim verlassen der Funktion vom Speicher gelöscht.
Das heisst die ObjektListe zeigt auf leeren Speicher. Oder irre ich mich da?