Int2Placing Routines |
Unit
QESBPCSConvert
Overloaded Variants |
Function Int2Placing(L: LongInt): string; |
Function Int2Placing(L: Int64): string; |
Declaration
Function Int2Placing(L: LongInt): string;
Parameters |
L | Value to process |
Category
String/Integer Conversion RoutinesImplementation
function Int2Placing (L: LongInt): string; begin case abs (L) mod 10 of 1: Result := 'st'; 2: Result := 'nd'; 3: Result := 'rd'; else Result := 'th'; end; case abs (L) mod 100 of 11, 12, 13: Result := 'th'; end; End; |
Declaration
Function Int2Placing(L: Int64): string;Implementation
function Int2Placing (L: Int64): string; begin case L mod 10 of 1: Result := 'st'; 2: Result := 'nd'; 3: Result := 'rd'; else Result := 'th'; end; case L mod 100 of 11, 12, 13: Result := 'th'; end; End; |
|