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;
 

 

"Die Option Drucken funktioniert erst ab Netscape V4.0 bzw. I-Explorer 5.0 !"

[letzte Aktualisierung 09.10.2006]