HochzählAlg zur erstellung von Listen

[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