administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

i:15 for int64

Browse source
This commit is contained in:
Бондарев Иван 2016-01-05 21:43:05 +01:00
parent fd603f9ee2
commit dbb0592ca4
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
bin/Lib/PABCSystem.pas
View file

@ -1598,6 +1598,8 @@ function FormatValue(value: object; NumOfChars: integer): string;
///--
function FormatValue(value: integer; NumOfChars: integer): string;
///--
function FormatValue(value: int64; NumOfChars: integer): string;
///--
function FormatValue(value: real; NumOfChars: integer): string;
///--
function FormatValue(value: real; NumOfChars, NumOfSignesAfterDot: integer): string;
@ -7413,6 +7415,12 @@ begin
Result := Result.PadLeft(NumOfChars);
end;
function FormatValue(value: int64; NumOfChars: integer): string;
begin
Result := value.ToString;
Result := Result.PadLeft(NumOfChars);
end;
function FormatValue(value: real; NumOfChars: integer): string;
begin
Result := value.ToString(nfi);