paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-04 18:26:08 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Fix for extractdelimited

Browse Source
This commit is contained in:
michael 2004-12-30 18:12:43 +00:00
parent 81ecfd5f2c
commit 8df5db089e
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/objpas/strutils.pp
View File

@ -170,6 +170,7 @@ const
DigitChars = ['0'..'9'];
Brackets = ['(',')','[',']','{','}'];
StdWordDelims = [#0..' ',',','.',';','/','\',':','''','"','`'] + Brackets;
StdSwitchChars = ['-','/'];
implementation
@ -1134,7 +1135,7 @@ begin
begin
inc(l);
SetLength(Result,l);
Result[Len]:=S[i];
Result[L]:=S[i];
end;
end;
inc(i);
@ -1529,7 +1530,10 @@ end.
{
$Log$
Revision 1.9 2004-07-21 20:37:03 michael
Revision 1.10 2004-12-30 18:12:43 michael
+ Fix for extractdelimited
Revision 1.9 2004/07/21 20:37:03 michael
+ Implemented all functions
Revision 1.8 2004/07/13 18:42:39 michael