editbox Text aus Listbox beziehen

[DeddyH]

Hallo und Willkommen in der DP ,
versuch es mal so:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  index:=0;
  if fileexists(edit2.text+'.array') then
    listbox1.items.loadfromfile(edit2.text+'.array');
  if fileexists('settings.ini') then
    begin
      listbox2.items.loadfromfile('settings.ini');
      if Listbox2.Items.Count > 0 then 
        edit2.Text:=listbox2.items[0];
    end;
end;