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;