Angle2Str Routines |
Unit
QESBPCSConvert
Overloaded Variants |
Declaration
Function Angle2Str(const Angle: Extended; const DecimalPlaces: Byte = 2): string;Implementation
function Angle2Str (const Angle: Extended; const DecimalPlaces: Byte = 2): string; var Degrees, Minutes: Integer; Seconds: Extended; Sign: Shortint; begin Deg2DMS (Angle, Degrees, Minutes, Seconds, Sign); Result := Angle2Str (Degrees, Minutes, Seconds, Sign); End; |
Declaration
Function Angle2Str(const Degrees, Minutes: Integer; const Seconds: Extended; const Sign: Shortint = 1; const DecimalPlaces: Byte = 2): string;Implementation
function Angle2Str (const Degrees, Minutes: Integer; const Seconds: Extended; const Sign: Shortint = 1; const DecimalPlaces: Byte = 2): string; begin if (Minutes < 0) or (Minutes > 59) then raise EConvertError.Create (rsInvalidAngle); if (Seconds < 0) or (Seconds >= 60) then raise EConvertError.Create (rsInvalidAngle); Result := Int2EStr (Degrees) + ESBDegreeStr + Int2EStr (Minutes) + ESBMinuteStr + Float2EStr (Seconds, DecimalPlaces) + ESBSecondStr; if (Degrees = 0) and (Sign = -1) then Result := '-' + Result; End; |
|