Einzelnen Beitrag anzeigen

Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#2

AW: HochzählAlg zur erstellung von Listen

  Alt 28. Apr 2012, 11:57
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.
Michael
Ein Teil meines Codes würde euch verunsichern.

Geändert von Luckie (28. Apr 2012 um 12:06 Uhr)
  Mit Zitat antworten Zitat