Thema: Delphi While - Schleife ...

Einzelnen Beitrag anzeigen

Benutzerbild von RomanK
RomanK

Registriert seit: 7. Jun 2002
Ort: Kirchheim unter Teck
1.036 Beiträge
 
Delphi 7 Personal
 
#5
  Alt 7. Mai 2003, 14:42
Würde auch mit ELSE gehen:
Delphi-Quellcode:
1 While Z = B Do
2 Begin
3 If Z = X then ... [hier muss ein Befehl der nur ausgeführt wird wenn z =X (ohne ; am ende)]
       else
        begin
4
...
15 End; //(else)
16 END; //(for)
bzw. in diesem fall einfach mit NOT:
Delphi-Quellcode:
1 While Z = B Do
2 Begin
3 If not(Z = X) then
       begin // jetzt die befehle ...
4
...

15 End; //(if)
16 END; //(for)
Roman Keller
Krieg ist Gottes Art den Amerikanern Geographie beizubringen!
  Mit Zitat antworten Zitat