den wert 5 habe ich gewählt weil es egal ist wie oft die schleife ausgefürht wird.
Mache ich dies nicht hängt sich das Programm auf !
hier die funktion CheckCollision:
Delphi-Quellcode:
function TForm1.CheckCollision(px,py,w,h,Index:Integer):Boolean;
var
o:Boolean;
z:Boolean;
begin
o:=False; z:=False;
z:=Kollision(rect(px,py,w,h));//GetItemIndex(px,py,w,h,index);
// Label1.Caption:=IntToStr(py);
Label3.Caption:='';
if (px > 0) and (px < 640-w) and (py >0) and ((Items[index].isPlayer = True) and (py < 480) or (Items[index].isPlayer = False) and (py < 280))then begin
o:=True;
end;
if (z = True) then begin
Label3.Caption:=IntToStr(px) + '\' + IntToStr(py);
o:=True
end
else begin
// Label3.Caption:=intToStr(z) + '*';
o:=False;
end;
// else
//BoolToStr(o,True) + '\' + IntToStr(z) + '\' + InttoStr(Index)+'\'+ intToStr(high(Items))
result:=o;
end;
Ich persönlich finde meinen Code nicht unübersichtlich. Da ich mich inzwischen mich an diesen QullcodeStyle gewöhnt habe *G*.
Nagut dies ist auch nur als "einfacher Test" gedacht gewesen für eine Grafik Lib. Normalerweise schreibe ich auch etwas übersichtlicher und mit weniger sinloser kometaren *G*....