Delphi 2 Objekte entfernung berechnen mit dem Mittelpunkt

Thema durchsuchen

Ansicht

Themen-Optionen

2 Objekte entfernung berechnen mit dem Mittelpunkt

Ein Thema von mimi · begonnen am 2. Jul 2006 · letzter Beitrag vom 2. Jul 2006

Vorheriger Beitrag

Nächster Beitrag

mimi

Registriert seit: 1. Dez 2002
Ort: Oldenburg(Oldenburg)
2.008 Beiträge

FreePascal / Lazarus

Re: 2 Objekte entfernung berechnen mit dem Mittelpunkt

2. Jul 2006, 10:07

entwerde verstehe ich das ergbnis nicht oder die formel funtkioniert noch nicht:
die werte sind viel zu hoch jetzt.
ich habe das jetzt so:

markieren

Delphi-Quellcode:

			 for i:=0 to obj.count-1 do begin

    if (TFigure(obj.Items[i]).Style.isSel = True) and (i <> SelObj) then begin

      sm1.x:=TFigure(obj.Items[i]).Style.LastPos.X div 2;

      sm1.y:=TFigure(obj.Items[i]).Style.LastPos.y div 2;

      diff.X:=sm1.x-sm.x;

      diff.y:=sm1.y-sm.y;

      m1 := Sqrt(Sqr(diff.x) + Sqr(diff.y));

    end;

  end;