Tech-ecke Delphi

Tech-Ecke / Delphi Inhalt / Schleifen und Verzweigungen

Schleifen und Verzweigungen

For Do Schleife ( var i: Integer; )

for i := 1 to 10 do
    begin
        ... // Befehlsfolge, die hier im Beispiel 10 -mal ausgeführt werden soll
    end;

und das ganze rückwärts:

for i := 10 downto 1 do
    begin
        ... // Befehlsfolge, die hier im Beispiel 10 -mal ausgeführt werden soll
    end;

Repeat Until Schleife ( var x: Integer; S: String; )

repeat
... // Befehlsfolge wird so oft ausgeführt bis Bedingung erfüllt ist
until x = 10; // oder für ein String > until S = ('ok');

If then Verzweigung ( var x: Integer; S: String; )

if x = 1 then    // oder für ein String > until S = ('ok');
    begin
        … // Quellcode der bei erfüllter Bedingung ausgeführt werden soll
    end;

If then else Verzweigung ( var x: Integer; S: String; )

if x = 1 then
    begin
        … // Quellcode der bei erfüllter Bedingung ausgeführt werden soll
    end
else
    begin
        … // wenn Bedingung nicht erfüllt wurde dann mach das hier
    end;
end;