Ok, aber jetzt habe ich schon wieder ein Problem mit dem Lesen der IniFile:
Delphi-Quellcode:
procedure TForm1.leseIni(IniName:string);
var
ini:TIniFile;
filename: String;
begin
filename := extractfilepath(paramstr(0))+IniName + '.ini';
Label5.Caption:=filename; //zeigt den Pfad und Dateinamen einwandfrei an
ini := TIniFile.Create(filename);
// INI-Datei erstellen (falls nicht vorhanden) und initialisieren
try
Form1.Caption:=ini.ReadString('Sektion1', 'Name', Name);
//globale Variablen
Gesamtkreditsum:=ini.ReadString('Sektion2', 'Gesamtkreditsumme',Gesamtkreditsum);
Ratenhöhe:=ini.ReadString('Sektion2', 'Ratenhoehe', Ratenhöhe);
Ratenanzhl:=ini.ReadString('Sektion2', 'Ratenanzahl', Ratenanzhl);
Restsum:=ini.ReadString('Sektion3', 'Restsumme', Restsum);
Sonderrat:=ini.ReadString('Sektion3', 'Sonderrate', Sonderrat);
//
finally
ini.Free;
// Variable ini wieder freigeben
end;
end;
.......
procedure TForm1.Button2Click(Sender: TObject);
begin
leseIni('MyKreditInif');
Gesamtkreditsumme.Caption:= 'Gesamtkreditsumme '+ gesamtkreditsum;
Ratenhoehe.Caption:='Ratenhoehe '+ Ratenhöhe;
Ratenanzahl.Caption:='Ratenanzahl '+Ratenanzhl;
Restsumme.Caption:='Restsumme '+Restsum;
Sonderrate.Caption:='Sonderrate '+Sonderrat;
end;
Die Labels zeigen nichts an, obwohl die Mykreditinif.ini korrekt erstellt im aktuellen Verzeichnis liegt. Hiiiiilfe