Forum: Object-Pascal / Delphi-Language
by Bjoerk,
14. Sep 2014
Ok. Mit interfaces arbeite ich eh nie (keinen Plan). Würde mal sagen, bei Klassen hängt's auch davon ab, was im constructor so passiert. Ein TObject.Create wird wohl nicht wahnsinnig viele Exceptions werfen? Dennoch, ich stimme #14 voll und ganz zu und so hatte ich's ja auch gemacht.
Forum: Object-Pascal / Delphi-Language
by Bjoerk,
14. Sep 2014
TBar1Intf, TBar2Intf, TBar1Impl, TBar2Impl: Qu'est-ce que c'est? :gruebel:
Forum: Object-Pascal / Delphi-Language
by Bjoerk,
11. Sep 2014
Weiß nicht mehr, würde sagen ja. Habs jetzt auch "anständig" gemacht, da sieht die Flip auch schon wesentlich gemütlicher aus. Flip bedeutet Kantenflip bei benachbarten Dreiecken, die zusammen eine Raute bilden. Da werden die beiden Dreiecke in der anderen Möglichkeit diese Raute zu bilden angeordnet, falls ein gewisses Seitenverhältnis überschritten ist.
function...
Forum: Object-Pascal / Delphi-Language
by Bjoerk,
11. Sep 2014
Das Ding ist, daß sowohl i als auch j gleichzeitig verändert werden. Da hilft auch kein downto (wie sonst üblich).
Forum: Object-Pascal / Delphi-Language
by Bjoerk,
11. Sep 2014
Ich möchte aus einer Liste Einträge in eine andere Liste übertragen und gleichzeitig aus der alten Liste raus löschen. Das tue ich deshalb weil der einzige in der alten Liste verbleibende Eintrag ein wichtiges Ergebnis ist. Bis jetzt ist es mir nicht gelungen.. :oops:
procedure TPolygonTriangles.Flip;
var
k1, k2, I, J: integer;
SCur, SNew: double;
ACur, BCur, ANew, BNew:...