Mega Code Archive
Swapvalues
<![CDATA[
procedure SwapPoints(var ptOne, ptTwo: TPoint3D);
procedure SwapIntegers(var valueOne, valueTwo: Integer);
procedure SwapReals(var valueOne, valueTwo: Real);
procedure TDrawObj.SwapPoints(var ptOne, ptTwo: TPoint3D);
var
tempX: Real;
tempY: Real;
tempZ: Real;
begin
tempX := ptOne.x;
tempY := ptOne.y;
tempZ := ptOne.z;
ptOne.x := ptTwo.x;
ptOne.y := ptTwo.y;
ptOne.z := ptTwo.z;
ptTwo.x := tempX;
ptTwo.y := tempY;
ptTwo.z := tempZ;
end;
/////////////////////////////////////////////////////////
procedure TDrawObj.SwapIntegers(var valueOne, valueTwo: Integer);
var
tempInt: Integer;
begin
tempInt := valueOne;
valueOne := valueTwo;
valueTwo := tempInt;
end;
/////////////////////////////////////////////////////////
procedure TDrawObj.SwapReals(var valueOne, valueTwo: Real);
var
tempReal: Real;
begin
tempReal := valueOne;
valueOne := valueTwo;
valueTwo := tempReal;
end;
]]>