Hallo,
ich habe mal eine Frage. Wie kann ich folgenden Code Automatisieren. Ich will nicht alle IF Anweisungen definieren. Vieleicht kann man das auch anders machen. Hab ihr eine Lösung???
so funktioniert es zwar, aber ich habe keine lust alle IF Anweisungen zu definieren. Wären dann nich ca. 27 IF Anweisungen
Delphi-Quellcode:
var i : TImage;
begin
i:=Image1;
i.Canvas.Pen.Color:=clRed;
if (x>=2) and (y>=20) and (x<=20) and (y<=22) then
begin
i.Canvas.Rectangle(2, 20, 20, 22);
end
else
begin
if (x>=22) and (y>=20) and (x<=40) and (y<=22) then
begin
i.Canvas.Rectangle(22, 20,40, 22);
end
else
begin
if (x>=42) and (y>=20) and (x<=60) and (y<=22) then
begin
i.Canvas.Rectangle(42, 20,60, 22);
end
else
begin
spielfeld_zeichnen(Sender);
end;
end;
end;
und hier jetzt meine versuchsvariante. funktioniert aber leider nicht.
Delphi-Quellcode:
var i : TImage;
k : Integer;
begin
i:=Image1;
i.Canvas.Pen.Color:=clRed;
for k:=0 to 10 do
begin
if (x>=k * 20 + 2) and (y>=20) and (x<=k * 20 + 22) and (y<=22) then
begin
i.Canvas.Rectangle(k * 20 + 2, 20, k * 20 + 22, 22);
end
else
begin
spielfeld_zeichnen(Sender);
end;
end;