Hai Paul,
wenn Du weisst das der dritte Punkt auf der geraden liegt reichen Dir die x-Koordinaten der drei Punkte:
Code:
function CeckPoint (x1,x2,x:Integer) : Boolean
begin
result :=((x2-x1)/2) = (x-x1);
end;
Wenn ich mich nicht verrechnet habe war es das.
Stephan B.
"Lasst den Gänsen ihre Füßchen"