Problem beim Laden von gespeicherten Eingaben

**madddin**

Hallo,
ich bin neu hier und habe gleich mal eine Frage.

Ich habe ein Rechner programmiert vomit man seinen Abischnitt ausrechnen lassen kann.
Jetzt möchte ich, dass die Eingaben gespeichert werden und wieder geladen werden können. Das mit dem Speichern klappt, nur weiß ich nicht genau wie ich die Laden-procedure schreiben soll:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Speichern1Click(Sender: TObject);

var

i:integer;

a:TObject;

begin

ini:=tinifile.Create(ExtractFilePath(Paramstr(0))+'datei.ini');

for i:=1 to 59 do begin

a:=FindComponent('Edit'+inttostr(i));

try

ini.WriteString('Abirechner','Edit'+inttostr(i),((a as Tedit).text));

finally

end;

end;

ini.free;

end;

procedure TForm1.Laden1Click(Sender: TObject);

var

i:integer;

a:TObject;

begin

ini:=tinifile.Create(ExtractFilePath(Paramstr(0))+'datei.ini');

for i:=1 to 59 do

        begin

                a:=FindComponent('Edit'+inttostr(i));

                try

                (a as Tedit).Text:=(ini.ReadString('Abirechner','Edit'+inttostr(i),inttostr(i)));

                finally

                ini.free;

end;

end;

end;

Kann mir jemand sagen wie ich das anders schreiben muss, damit es die Editfelder mit den jeweils gespeicherten Werten füllt?

Madddin

Problem beim Laden von gespeicherten Eingaben

Problem beim Laden von gespeicherten Eingaben

Forumregeln