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