Einrücken ::: ::: Wie rückt ihr ein?

[ErazerZ]

Zitat von Sunlight7:

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;

Um Gottes Willen wie kennst du dich bei deinem Apfelwürmchen Quellcode noch aus?
Ich würde das eher so machen

Delphi-Quellcode:

function Foo(a, b, c, d: Integer): Integer;
var
  x, y: Integer;
begin
  if (a > b) then
  begin
    if ((a*b) > (c+d)) then
    begin
      for x := 0 to Width -1 do
      begin
        for y := 0 to Height -1 do
        begin
          Inc(a);
          Dec(b);
        end;
      end;
    end;
  end;
end;