paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-23 11:31:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* pchar support for %s

Browse Source
This commit is contained in:
peter 1999-04-08 10:19:41 +00:00
parent a7741dd7e7
commit ad65fe3aec
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/objpas/sysstr.inc
View File

@ -606,6 +606,7 @@ begin
begin
if err then
DoFormatError(feInvalidArgindex);
dec(ArgPos);
exit;
end;
result:=true;
@ -658,11 +659,11 @@ begin
if CheckArg(vtString,false) then
hs:=Args[doarg].VString^
else
begin
dec(argpos);
if CheckArg(vtAnsiString,true) then
hs:=ansistring(Args[doarg].VAnsiString);
end;
if CheckArg(vtPChar,false) then
hs:=Args[doarg].VPChar
else
if CheckArg(vtAnsiString,true) then
hs:=ansistring(Args[doarg].VAnsiString);
Index:=Length(hs);
If (Prec<>-1) and (Index>Prec) then
Index:=Prec;
@ -969,7 +970,10 @@ const
{
$Log$
Revision 1.15 1999-04-04 10:19:07 peter
Revision 1.16 1999-04-08 10:19:41 peter
* pchar support for %s
Revision 1.15 1999/04/04 10:19:07 peter
* format support for ansistring (from mailinglist)
* fixed length checking in Trim()