[Delphi] Najbardziej porombana linijka kodu

[Toster]

Temat nietypowy (wg mnie), jakby ktos chcial sie podzielic ze swiatem linijkami kodu (pojedynczymi) ktore z roznych wzgledow uwaza za porombane (przy czym nie definiujemy slowa porombane )

 

Oto moj typ, z projektu DeepMine

 

Result := fParent.fShadeParent.DelphiWrapCall(fParent.fLinkedXMLNode.ChildNodes.FindNode(name));

[Jason]

To z kodu http://www.jason.unit1.pl/?strona=1&podstrona=14 - programik służący do sprawdzenia, czy z danych 3 punktów można utworzyć trójkąt

b=sqrt(((p+1)->x-(p+2)->x)*((p+1)->x-(p+2)->x)+((p+1)->y-(p+2)->y)*((p+1)->y-(p+2)->y));

[HNB]

Zoptymalizowana pętla "for to do" w Delphi mojego autorstwa

 

if tab <> nil then for i := 0 to PLongInt(LongInt(@tab[0]) - 4)^ - 1 do {...} ;

 

gdzie tab to dowolna tablica dynamiczna.

 

PS. dałem @tab[0] zamiast tab by było estetyczniej ^^

[Spider100]

Kodz ksiazki "fizyka dla programistów gier"

 

j = (-(1+fCr) * (Collisions[i].vRelativeVelocity*Collisions[i].vCollisionNormal)) /( (1/Bodies[b1].fMass + 1/Bodies[b2].fMass) +
(Collisions[i].vCollisionNormal * ( ( (pt1 ^ Collisions[i].vCollisionNormal)*Bodies[b1].mInertiaInverse )^pt1) ) +
(Collisions[i].vCollisionNormal * ( ( (pt2 ^ Collisions[i].vCollisionNormal)*Bodies[b2].mInertiaInverse )^pt2) ));

 

I teraz zastanówcie sie jak to mogło wyglądać w delphi bez przeciążeń operatorów zgubiłem kod niestety... <_>

[sazian]

a co tu masz za różnice ??

jedyne co rzuciło mi się w oczy(już prawie nie boli ) to zamiana

power( pt1, Collisions[i].vCollisionNormal)

na

power( pt1, Collisions[i].vCollisionNormal)

[Spider100]

zamień Każdy operator * ^ na wywołanie funkcji dwuparametrowej (macierzy wektorów i skalarów) , a później przeczytaj ten kod (dla mnie samo zrozumienie tego było problemem) ... druga sprawa widać, że programista nie pisał tej książki.

[HNB]

W Delphi można użyć jeszcze with i wyszło by prawie na to samo