paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-22 17:29:46 +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 hexstr(val : longint;cnt : byte) : string;
function tostru(i:cardinal) : string; function tostru(i:cardinal) : string;
function tostr(i : longint) : string; function tostr(i : longint) : string;
function int64tostr(i : int64) : string;
function tostr_with_plus(i : longint) : string; function tostr_with_plus(i : longint) : string;
procedure valint(S : string;var V : longint;var code : integer); procedure valint(S : string;var V : longint;var code : integer);
function is_number(const s : string) : boolean; function is_number(const s : string) : boolean;
@ -315,6 +316,17 @@ uses
tostr:=hs; tostr:=hs;
end; 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; function tostr_with_plus(i : longint) : string;
{ {
@ -599,7 +611,10 @@ initialization
end. end.
{ {
$Log$ $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 * use tables for upper/lower
Revision 1.2 2000/09/24 15:06:14 peter Revision 1.2 2000/09/24 15:06:14 peter