Hey ich hab da noch ein klitschko kleines problem
zwar möchte ich von meiner ini die werte auslesen lassen und in meine edits wieder anzeigen lassen.
hier mal mein code wie ich die ini erstelle:
Delphi-Quellcode:
var Ini: TIniFile;
i: Integer;
begin
ini := TIniFile.Create('C:\Beispiel.ini');
try
// Zum Speichern
For i := 0 to ComponentCount - 1 do
begin
if (TEdit(Components[i]).Name = 'prodLK') or (TEdit(Components[i]).Name = 'unprodLK') or (TEdit(Components[i]).Name = 'GehaltServ') or
(TEdit(Components[i]).Name = 'PersonalNK') or (TEdit(Components[i]).Name = 'Berufsbekl') or (TEdit(Components[i]).Name = 'KostenServ') or
(TEdit(Components[i]).Name = 'AnschKostFremd') then
ini.WriteString('Daten'+(Jahr.text),(Components[i] as TEdit).name,(Components[i] as TEdit).text)
else if Components[i] is TEdit then
ini.WriteString('Summen'+(Jahr.Text)+(Monat.Text),(Components[i] as TEdit).name,((Components[i] as TEdit).text));
end;
finally
ini.Free;
end;
end;
und hier wie ich die werte beziehe:
Delphi-Quellcode:
var Ini: TIniFile;
i: Integer;
begin
ini := TiniFile.Create('C:\Beispiel.ini');
// Zum Lesen
For i := 0 to ComponentCount - 1 do begin
If Components[i] Is TEdit then with Components[i] As TEdit Do begin
text := ini.ReadString('Summen'+(Jahr.Text)+(Monat.Text),(Components[i] as TEdit).name,((Components[i] as TEdit).text));
end;
end;
ini.Free;
end;
komme einfach nicht darauf wo der fehler ist...
mfg kumar89