Objects aus Listbox in Stringlist übertragen

[exoduscrises]

Hallo zuammen,
Ich möchte Objects aus einer Listbox in Stringlist übertragen. Ich nutze den Befehl

Delphi-Quellcode:

i := Listbox1.ItemIndex;
String := TEntry(listbox1.items.objects[i]).fpath;

um das Objekt eines Elementes in der Listbox abzufragen. Ich möchte aber, dass alle Elementer aus Der Listbox so in eine Stringlist gesetzt werden, die ich dann speichern kann. Kann mir jemand ein paar Tipps geben wie das in etwa aussehen müsste, bin da nicht so bewandert.

[marabu]

Hier etwas Hilfe zur Selbsthilfe:

Delphi-Quellcode:

uses
  Classes;


var 
  sl: TStringList;
  s: string;
  e: TEntry;
begin
  sl := TStringList.Create;
  for i := 0 to Listbox.Items.Count - 1 do begin
    e := TEntry(ListBox.Items.Objects[i]);
    sl.Add(e.fpath);
  end;
  sl.SaveToFile('path\filename.ext');
  sl.Free;
end;

Grüße vom marabu

[exoduscrises]

Dank vielmals, funktioniert einwandfrei :-D