FLOATTOSTRF
function
example
type
TVector = record
x: Real;
y: Real;
z: Real;
end;
procedure TMainForm.DefinePlaneButtonClick(Sender: TObject);
var
plane: TVector;
tempString: String;
begin
plane := GetPlane(pt1, pt2, pt3);
tempString := 'The vector to define the plane is ' + Chr(13) +
FloatToStrF(plane.x, ffGeneral, 5, 5) + ', ' +
FloatToStrF(plane.y, ffGeneral, 5, 5) + ', ' +
FloatToStrF(plane.z, ffGeneral, 5, 5);
Application.MessageBox(PChar(tempString), 'Results', Mb_OK);
end;