Ok, also hab was zusammengebracht, aber das Programm speicherts net in der ini datei.
Delphi-Quellcode:
procedure TForm1.Button4Click(Sender: TObject);
var IniFile: TIniFile;
begin
try
IniFile:=TInifile.Create('login.ini');
IniFile.WriteString('Host','Host', edServer.Text);
IniFile.WriteString('User','Login', edLogin.Text);
IniFile.WriteString('Pass','Passwort', edPasswort.Text);
IniFile.WriteString('Database','Datenbank', edDB.Text);
finally
IniFile.Free;
end;
end;
Im selbenverzeichnis, wo das Proramm und alle anderen files die dazu gehören liegen, habe ich auch die login.ini erstellt.
Die sieht so aus:
Delphi-Quellcode:
[Host]
Login=
[User]
Login=
[Pass]
Passwort=
[Database]
Datenbank=
Es gibt auch keine Fehlermeldung, deshalb glaube ich, dass irgendwas mit der ini net stimmt.
edit: und der Code zum Laden net vergessen^^:
Delphi-Quellcode:
procedure TForm1.Button7Click(Sender: TObject);
var IniFile: TIniFile;
begin
try
IniFile:=TInifile.Create('login.ini');
edServer.Text:=IniFile.ReadString('Host','Host', '');
edLogin.Text:=IniFile.ReadString('User','Login', '');
edPasswort.Text:=IniFile.ReadString('Pass','Passwort', '');
edDB.Text:=IniFile.ReadString('Database','Datenbank', '');
finally
IniFile.Free;
end;
end;