fragen zu den schleifen

[angos]

Leute Leute, BackToTopic . Der Neue möchte gerne Beispiele zu den Schleifen:

repeat/until: Gehen wir von einem Quiz mit meheren Antwortversuchen aus: Jede Frage wird mindestens einmal gestellt, kann aber auch
öfters gestellt werden. also lohnt sich dort repeat until

Delphi-Quellcode:

repeat
  Textausgabe: "Welches Delphiforum ist das Beste?"
  warte auf Benutzereingabe
until Benutzereingabe = 'Delphi Praxis';

while: Wir haben eine Datei mit einer unbekannten Anzahl von Zeilen. Nun lesen wir solange aus der Datei aus bis alles gelesen ist. Es kann aber auch sein, dass die Datei komplett leer ist, dann darf das gar nicht ausgeführt werden:

Delphi-Quellcode:

while not Eof(File) do // Solange das ende der Datei nicht erreicht ist
begin
  Readln(File, string); // Lese aus der Datei
  ... // und dann mach was damit
end;