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

[SaFu]

Habe es so ein getragen aber es Funktioniert so nicht habe folgenden Fehler

Code:

[Fehler] Unit7.pas(104): Inkompatible Typen: 'String' und 'procedure, untyped pointer or untyped parameter'

es tut mir echt leid wenn ich damit nerve

[marabu]

Hallo,

du kannst die Einträge in deiner ComboBox-Liste mit einem einzigen Befehl speichern oder wiederherstellen:

Delphi-Quellcode:

var
  fn: TFileName;
begin
  fn := ExtractFilePath(ParamStr(0)) + Name + '.ini';
  with ComboBox do
  begin
    Items.SaveToFile(fn);    // sichern
    Items.LoadFromFile(fn);  // wiederherstellen
  end;
end;

Freundliche Grüße

[SaFu]

Danke Klappt soweit