Einzelnen Beitrag anzeigen

Benutzerbild von scrat1979
scrat1979

Registriert seit: 12. Jan 2007
Ort: Sulzbach a.d. Murr
1.029 Beiträge
 
Delphi 10.4 Sydney
 
#4

AW: HochzählAlg zur erstellung von Listen

  Alt 28. Apr 2012, 12:03
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;
Michael Kübler
  Mit Zitat antworten Zitat