Daten speichern

[pacman1986]

Delphi-Quellcode:

procedure TForm1.ToolButton1Click(Sender: TObject);
var i:integer;
begin 
   Ini := TIniFile.Create('data.ini'); 
    for i := 1 to 19 do begin 
     Ini.WriteString('Daten', 'Edit1'+inttostr(i)+'-Feld', TEdit(FindComponent('Edit'+inttostr(i))).text);
    end;
   Ini.Free; 
end;

Wäre deutsöich kürzer für den ersten teil

und

Delphi-Quellcode:

procedure TForm1.ToolButton2Click(Sender: TObject);
var i:integer;
begin 
   Ini := TIniFile.Create('data.ini'); 
    for i := 1 to 19 do begin 
     TEdit(FindComponent('Edit'+inttostr(i))).text=Ini.ReadString('Daten', 'Edit1'+inttostr(i)+'-Feld', 'Default-Wert');
    end;
   Ini.Free; 
end;

für den 2 ten Teil

PS: Code net überprüft müsste aber funzen