HochzählAlg zur erstellung von Listen

[Desfreak]

mahlzeit leute,

Bitte seit mir nich böse das ich jetz ne total bescheuerte noobfrage stelle :duck:

Ich brauche ein hochzählalg mit welche ich ein liste vervollständigen kann.
ja ich weiß:

Delphi-Quellcode:

i:=i+1

aber iwie funktioniert es nich...

mein progcode:

Delphi-Quellcode:

procedure TForm3.btnsaveClick(Sender: TObject);
begin
 for i := 1 to 100 do
  i := i + 1;
  Datenspeicher := ExtractFilePath(ParamStr(0)) + 'Datenspeicher.ini';
  ini := TIniFile.Create(Datenspeicher);
  ini.WriteString(i, 'Name',EName.Text);
  ini.WriteString(i, 'Beginn',EBeg.Text);
  ini.WriteString(i, 'Ende',EEnde.Text);
  ini.WriteString(i, 'Ort',EOrt.Text);
  ini.WriteString(i, 'Bemerkung',EBem.Text);
  ini.Free;

end;

wie kann ich angeben das es es keine ende haben soll?

danke im vorraus :)

[Luckie]

Delphi-Quellcode:

procedure TForm3.btnsaveClick(Sender: TObject);
begin
 Datenspeicher := ExtractFilePath(ParamStr(0)) + 'Datenspeicher.ini';
 ini := TIniFile.Create(Datenspeicher);
 for i := 1 to 100 do
  ini.WriteString(i, 'Name',EName.Text);
  ini.WriteString(i, 'Beginn',EBeg.Text);
  ini.WriteString(i, 'Ende',EEnde.Text);
  ini.WriteString(i, 'Ort',EOrt.Text);
  ini.WriteString(i, 'Bemerkung',EBem.Text);
 end;
 ini.Free;
end;

Wozu das until? Du hast doch eine for-Schleife.

[Bummi]

Wo willst Du denn hin, selbst wenn Du es so machst:

Delphi-Quellcode:

procedure TForm3.btnsaveClick(Sender: TObject);
begin
  Datenspeicher := ExtractFilePath(ParamStr(0)) + 'Datenspeicher.ini';
  ini := TIniFile.Create(Datenspeicher);

 for i := 1 to 100 do
  Begin
  ini.WriteString(IntToStr(i), 'Name',EName.Text);
  ini.WriteString(IntToStr(i), 'Beginn',EBeg.Text);
  ini.WriteString(IntToStr(i), 'Ende',EEnde.Text);
  ini.WriteString(IntToStr(i), 'Ort',EOrt.Text);
  ini.WriteString(IntToStr(i), 'Bemerkung',EBem.Text);
  end;
  ini.Free;

end;

hast Du 100 Sections mit immer den selben Werten

[scrat1979]

Delphi-Quellcode:

procedure TForm3.btnsaveClick(Sender: TObject);
begin
 // INI-Datei initialisieren
 Datenspeicher := ExtractFilePath(ParamStr(0)) + 'Datenspeicher.ini';
 ini := TIniFile.Create(Datenspeicher);

 for i := 1 to 100 do begin
  // i := i + 1; --> Erledigt die FOR-Schleife für Dich :)
  ini.WriteString(i, 'Name',EName.Text);
  ini.WriteString(i, 'Beginn',EBeg.Text);
  ini.WriteString(i, 'Ende',EEnde.Text);
  ini.WriteString(i, 'Ort',EOrt.Text);
  ini.WriteString(i, 'Bemerkung',EBem.Text);
 end; // for

 ini.Free; // Speicher freigeben

end;

[Desfreak]

Danke für die schnellen antworten^^

@Luckie: das mit dem until war dumm....hatte ich dann auch gemerkt^^