Einträge einer ListBox einer TStringList zuordnen!

[axelf98]

Meinst du dann einfach das?
(Hier müssen also global oder zumindest übergeordnet deklariert werden)

Delphi-Quellcode:

procedure ListboxToStringlist(X:TListbox;Y:TStringlist);
var i : integer;
begin
 Y.Clear;
 for i := 0 to X.Items.Count-1 do
  Y.Add(X.items[i]);
end;

  //------------------------------

procedure StringlistToListbox(X:TStringlist;Y:TListbox);
var i : integer;
begin
 Y.Clear;
 for i := 0 to X.Count-1 do
  Y.Items.Add(X[i]);
end;