ComboBox.Items aus Datei auslesen

[moperswings]

Hallo,

ich möchte, das Daten, die ich in ein Editfeld eingebe, in einer ComboBox gespeichert werden und beim nächsten Programmstart angezeigt werden. Die Daten werden gespeichert, aber es werden beim nächsten Start nur die items angezeigt, die in der Stringlist stehen!
Wo ist der Fehler?
Viele Grüsse, moperswings

Delphi-Quellcode:

var
  f: filename;
begin
  combobox1.items.add(edit1.text);
  f := extractfilepath(paramstr(0)) + name + '.txt');
  with combobox1 do begin
  items.savetofile(f);
  items.loadfromfile(f);
  end;

[Relicted]

du überschreibst mit dem vorhergehenden savetofile die alte datei... damit steht in der datei nur das was bis dato drinsteht.

edit:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  combobox1.items.loadfromfile( 'C:\test.txt' );
end;

// Beim hinzufügen nur noch speichern...
procedure TForm1.Button1Click(Sender: TObject);
var
  f: filename;
begin
  combobox1.items.add(edit1.text);
  f := extractfilepath(paramstr(0)) + name + '.txt');
  with combobox1 do 
  begin
    items.savetofile(f);
//  items.loadfromfile(f);
  end;
end;

gruß
reli

[moperswings]

Edit: Moment, Ich probiere das!

[Relicted]

siehe edit :-)

beim laden der form lädst du auch die datei und beim hinzufügen speicherst du halt :-)

[moperswings]

Danke, es war mal wieder viel zu einfach, um selber drauf zu kommen! :wall:

Viele Grüsse, moperswings

[Relicted]

das denk ich mir auch jeden tag :-)