| 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; |
|
|