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

* fixed setcommatext

Browse Source
This commit is contained in:
peter 2001-05-20 12:10:03 +00:00
parent 2b8091365e
commit ee1bf5fa48
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
fcl/inc/stringl.inc
View File

@ -162,7 +162,7 @@ begin
inc(p); inc(p);
Setlength (S,P-PS); Setlength (S,P-PS);
L:=Pointer(S); L:=Pointer(S);
Move (PS^,L,P-PS); Move (PS^,L^,P-PS);
end; end;
if p^=',' then if p^=',' then
inc(p); inc(p);
@ -1031,7 +1031,10 @@ end;
{ {
$Log$ $Log$
Revision 1.9 2001-04-13 18:03:28 peter Revision 1.10 2001-05-20 12:10:03 peter
* fixed setcommatext
Revision 1.9 2001/04/13 18:03:28 peter
* commatext fixes * commatext fixes
Revision 1.8 2001/04/10 23:24:51 peter Revision 1.8 2001/04/10 23:24:51 peter