Kollisions-Abfrage (via TRect)
function IsCollision (Rec1, Rec2 : Trect): Boolean;
begin
Result := (Rec1.Right > Rec2.Left) and
(Rec2.Right > Rec1.Left) and
(Rec1.Bottom > Rec2.Top ) and
(Rec2.Bottom > Rec1.Top );
end;
Mit Hilfe dieser Funktion kann man die Kollision zweier Objekete herausfinden. Diese Funktion ist für Anfänger nur im VCL-Modus zu gebrauchen. Zudem muss man erstmal wissen, was TRect ist