Na, das war dann wohl ich, der dir Funktion vorgesetzt hat.
function PointInCircle(p, center:TPoint; radius:integer):Boolean;
"p" ist der Punkt und "center" ist der Mittelpunkt des Kreises.
p.x - center.x ist der Abstand in X-Richtung zwischen den Punkt und dem Kreismittelpunkt.
Dazu muss man wissen dass
TPoint ein komplexer Datentyp ist:
Delphi-Quellcode:
TPoint = record
x: Integer;
y: Integer;
end;
Das verstehst du recht schnell, wenn du ein oder zwei Einsteiger Tutorials durchgelesen hast.
http://www.epinasoft.com/delphikurs/
Die Y-Richtung dürfte damit auch klar sein.
Interessant ist noch, dass es eigentlich egal ist, ob man p und center vertauscht oder nicht.
Durch das Quadrieren mit SQR wird p.x - center.x auf jeden Fall positiv.
Wenn man weiter überlegt ist das eigentlich logisch:
man hat zwei Punkte auf eine Fläche. Ob man jetzt Punkt A oder Punkt B als Kreismittelpunkt annimmt ist egal.