for Schleife?

[sakura]

Delphi-Quellcode:

procedure TForm1.wsaveClick(Sender: TObject);
var
  Ini: TIniFile;
  I: Integer;
begin
  Ini:=TIniFile.Create('dat\konfig.ini');
  try
    for I := 1 to 34 do
      Ini.WriteString('Positionen','Feld' + IntToStr(I), TEdit(FindComponent('in' + IntToStr(I))).text);
  finally
    Ini.Free;
    ShowMessage('Erfolgreich gespeichert!');
  end;
end;