paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 22:50:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ int64tostr function added

Browse Source
This commit is contained in:
pierre 2000-11-28 00:17:43 +00:00
parent 587d9bb7cf
commit 9353c89710
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/cutils.pas
View File

@ -48,6 +48,7 @@ interface
function hexstr(val : longint;cnt : byte) : string;
function tostru(i:cardinal) : string;
function tostr(i : longint) : string;
function int64tostr(i : int64) : string;
function tostr_with_plus(i : longint) : string;
procedure valint(S : string;var V : longint;var code : integer);
function is_number(const s : string) : boolean;
@ -315,6 +316,17 @@ uses
tostr:=hs;
end;
function int64tostr(i : int64) : string;
{
return string of value i
}
var
hs : string;
begin
str(i,hs);
int64tostr:=hs;
end;
function tostr_with_plus(i : longint) : string;
{
@ -599,7 +611,10 @@ initialization
end.
{
$Log$
Revision 1.3 2000-11-07 20:47:35 peter
Revision 1.4 2000-11-28 00:17:43 pierre
+ int64tostr function added
Revision 1.3 2000/11/07 20:47:35 peter
* use tables for upper/lower
Revision 1.2 2000/09/24 15:06:14 peter