for Schleife?

[Privateer3000]

Hi Leutz,

kann man solche Anweisungen auch in eine for-Schleife packen?

Code:

procedure TForm1.wsaveClick(Sender: TObject);
var
  Ini: TIniFile;
  begin
    Ini:=TIniFile.Create('dat\konfig.ini');
    try
    Ini.WriteString('Positionen','Feld1',in1.text);
    .....
    Ini.WriteString('Positionen','Feld34',in34.text);
    finally
    Ini.Free;
    ShowMessage('Erfolgreich gespeichert!');
  end;
  end;

Es sollen also alle 34 Edit abgespeichert werden.
aber irgendwie krieg ichs nicht hin.
Meine Versuche schreib ich erst garnet hin ;o)

Grüsse und einen schön 4. Advent

[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;

[Privateer3000]

Danke sakura..man ich bin so blöd
Ich verrat auch was ich vergessen habe

Zitat:

IntToStr

heisst das Zauberwort :idea:

[sakura]

Oh oh, langsam wird es wirklich ernst mit Deinem Delphi-Gedächtnis... :mrgreen:

...:cat:...

[Luckie]

Der ist schon halb unter dem Weihnachtsbauzm und singt Weihnachtslieder. :mrgreen:

[Privateer3000]

Danke für die Blumen :roll:
Aber manchmal bin echt schusselig und wunder mich dann wenn nichts funzt.
Ich wünsch euch ein schönes Fest Jungs.

Privateer