Aus Textfile in Combobox laden

[Klaus01]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  sl: Tstringlist;
  hlp: string;
begin
  sl := Tstringlist.create;// hier lade ich zeile für zeile in eine combobox
  sl.LoadFromFile('save.txt');
  for i := 0 to sl.Count - 1 do begin   // sl.count
       hlp := sl.Strings[i];
       combobox1.Items.Add(hlp);

  end;

end;

Die ComboBox ist zu Anfang ja noch leer.

Einfacher geht es vielleicht so:

ComboBox1.Items.LoadFromFile(ExtractFilePath(ParamStr(0))+'save.txt'); Grüße
Klaus