Mega Code Archive

 

Categories / Delphi / Examples

 

Floattostrf

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;