Einzelnen Beitrag anzeigen

Benutzerbild von Sunlight7
Sunlight7

Registriert seit: 17. Sep 2006
Ort: Sonnensystem, Zentral
1.522 Beiträge
 
Delphi 5 Standard
 
#50

So rücke ich ein

  Alt 15. Nov 2006, 20:52
Meine Schreibweise:
Delphi-Quellcode:
function Foo(a, b, c, d:Integer):Integer;
   var x, y:Integer;
begin
   If a>b then // 1. If groß
      if a * b>c+d then begin // Verschachtelte ifs klein
         For x:=0 to Width-1 do // Das gleiche mit For
            for y:=0 to Height-1 do begin
               Inc(a, 1);
               Dec(b, 1);
            end;
      end;
end;
Windows: Ja - Microsoft: Nein -> www.ReactOS.org
  Mit Zitat antworten Zitat