Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
FreePascal / Lazarus
|
AW: Ini Datei wird nicht erstellt...
20. Feb 2014, 17:53
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
Also - die INI-Datei ist vorhanden!
- in der Ini-Datei befinden sich die gesuchten Daten an der richtigen Stelle?
- was für einen Inhalt hat "RatenHöhe" oder "RatenAnzhl" sobald das Lesen abgeschlossen ist?
- was sagt der Debugger dazu?
Gruß
K-H
P.S.
Du mußt nicht so laut um Hilfe rufen.
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
|
|
Zitat
|