paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 13:49:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

* %u

Browse Source
This commit is contained in:
marco 2004-11-21 16:44:01 +00:00
parent 43e425072b
commit 743ac811fb
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/objpas/sysutils/sysstr.inc
View File

@ -996,6 +996,18 @@ begin
// + 1 to accomodate for - sign in length !! // + 1 to accomodate for - sign in length !!
Insert(StringOfChar('0',Index+1),toadd,2); Insert(StringOfChar('0',Index+1),toadd,2);
end; end;
'U' : begin
if Checkarg(vtinteger,false) then
Str(cardinal(Args[Doarg].VInteger),ToAdd)
{$IFNDEF VIRTUALPASCAL}
else if CheckArg(vtInt64,true) then
Str(qword(Args[DoArg].VInt64^),toadd)
{$ENDIF}
;
Width:=Abs(width);
Index:=Prec-Length(ToAdd);
ToAdd:=StringOfChar('0',Index)+ToAdd
end;
'E' : begin 'E' : begin
CheckArg(vtExtended,true); CheckArg(vtExtended,true);
ToAdd:=FloatToStrF(Args[doarg].VExtended^,ffexponent,Prec,3); ToAdd:=FloatToStrF(Args[doarg].VExtended^,ffexponent,Prec,3);
@ -2202,7 +2214,10 @@ const
{ {
$Log$ $Log$
Revision 1.17 2004-11-16 18:30:35 marco Revision 1.18 2004-11-21 16:44:01 marco
* %u
Revision 1.17 2004/11/16 18:30:35 marco
* updated ansiexctractquotedstring (more delphi compat, both interface and code) * updated ansiexctractquotedstring (more delphi compat, both interface and code)
Revision 1.16 2004/08/30 18:00:12 michael Revision 1.16 2004/08/30 18:00:12 michael