Hier mein Code:
Delphi-Quellcode:
Uses ...IniFiles;
...
procedure TForm2.FormCreate(Sender: TObject);
var
Ini: TIniFile;
begin
Ini:= TIniFile.Create(ExtractFilePath(ParamStr(0))+
'Freifelder.Ini');
Try
Ini.WriteString('Feldinhalte','Feld1',EditFreifeld1.Text);
Ini.WriteString('Feldinhalte','Feld2',EditFreifeld2.Text);
Ini.WriteString('Feldinhalte','Feld3',EditFreifeld3.Text);
EditFreifeld1.Text := Ini.ReadString('Feldinhalte','Feld1','');
EditFreifeld2.Text := Ini.ReadString('Feldinhalte','Feld2','');
EditFreifeld3.Text := Ini.ReadString('Feldinhalte','Feld3','');
Finally;
Ini.Free;
end;
Das Programm wird einwandfrei compiliert, aber die Einträge auf Form2
in den EditFreifeldern1-3 in der Ini nicht gespeichert. Bitte prüfen,
vielen Dank!
Gruß
Lombi