HochzählAlg zur erstellung von Listen

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