Edit inhalt in eine Combox liste

[EDatabaseError]

da ich gerade eh nichts zu tun hab:

Delphi-Quellcode:

//Im OnClose

var
   i: integer;
   f: Textfile;
begin
 AssignFile(f, ExtractFilePath(ParamStr(0)) + 'comboboxeintraege.txt');

 ReWrite(f);

 for i := 0 to Combobox1.Items.Count - 1 do
  begin
   WriteLN(f,Combobox1.items[i]);
  end;

 CloseFile(f);
end;

//Im OnCreate

var
   f: TextFile;
   s: String;
begin
 AssignFile(f, ExtractFilePath(ParamStr(0)) + 'comboboxeintraege.txt');

 Reset(f);

 while eof(f) = false do
  begin
   s := readln(f,s);
   combobox1.items.add(s);
  end;

 CLosefile(f);
end;

du musst die datei in diesem fall zuerst im editor erstellen sonst knallts weil er sie im oncreate nicht findet - existiert sie einmal sollte das alles so laufen - ungetestet

tobi