TComboBox behält nach Neustart keine neuen Einträge

[realhanno]

Hallo,

mein Problem:
Ich mach eine Combobox auf, lasse Neueinträge per Button zu den items hinzufügen und kann sie auch als Neueintrag in der Combobox bewundern.
Soweit prima - dachte ich. Aber - nach einem Neustart der Anwendung sind alle Neueinträge weg.
Code: Es ist nur eine Zeile:

Zitat:

Combobox1.Items.Add(Combobox1.Text);

Ich benutze Delphi 7.
Ich finde nichts darüber, wie ich Neueinträge in der Combobox dauerhaft speichern kann...
Vielleicht weiß jemand Rat, wie das zu lösen ist.

Gruß
realHanno

[sx2008]

Delphi-Quellcode:

// Hilfsfunktion weil man Dateinamen mehrfach braucht
function ComboBoxFilename:string;
begin
  Result := ExtractFilePath(ParamStr(0))+ '\combo1.txt';
end;
....

// speichern
Combobox1.Items.SaveToFile(ComboBoxFilename);
....

// laden beim Erzeugen des Formulars
if FileExists(ComboBoxFilename) then
  Combobox1.Items.LoadFromFile(ComboBoxFilename);

[realhanno]

JUI...
ist doch etwas mehr als nur eine Zeile...
Danke!
realHanno

[himitsu]

Das geht natürlich auch 1-zeilig (+1 beim Speichern), wenn man die Funktion ComboBoxFilename weglässt und den Pfad überall direkt einbaut, aber so hat man den Vorteil, daß man den Namen nur an einer Stelle hat, welches sich aber auch noch auf viele andere Wege lösen lässt. (z.B. als Klasse oder Funktion, welche mehrere Namen zurückgeben kann, für andere Dateinamen, welche man eventuell auch noch braucht, was man z.B. über Konstanten oder einen Enum ansteuern würde)

Man kann matürlich auch diese Daten auch in die Registry legen, oder in eine INI, XML usw.

Allgemein nochmal. Delphi speichert in der DFM nur das, was beim Kompilieren im Formdesigner da eingestellt wurde.
Und es läd bei jedem Programmstart (erstellen der Form) immer nur die Daten aus der einkompilierten DFM, welches man danach natürlich auch durch eigene Wert (z.B. im OnCreate der Form) überschreiben/ergänzen kann.