mh.. irgendwie stell ich mich zu doof an.. also mein Code ist im Mom folgender:
Delphi-Quellcode:
Function getpoint(anf,ende:TPoint;pro:integer):TPoint;
VAR
point : TPoint;
calc : double;
BEGIN
calc := 100 / pro;
point.X := anf.X + round((ende.X-anf.X)*calc);
point.Y := anf.y + round((ende.Y-anf.Y)*calc);
result := point;
END;
aber funktioniert halt nicht.
(uhh man ist das Peinlich
)