Objects aus Listbox in Stringlist übertragen

[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