|
Registriert seit: 4. Apr 2004
Ort: Templin
290 Beiträge
Delphi 6 Enterprise
|
Re: Ergeben Punkte ein sich nicht selbst schneidendes Polygo
12. Dez 2004, 16:37
Du erstellst aus Punkt1/Punkt2 und aus punkt2/punkt3 eine Geradengleichung, berechnest den Schnittpunkt. Ist dieser mit Punkt1-3 identisch, dann ist alles gut.
Das machst du jetzt für alle Punkte.
procedure TForm1.Button1Click(Sender: TObject);
begin
button1.Click;
end;
|