Hi all,
the attached patch fixes ExtractStrings so that is does not ignore the
last part of the parsed string.
ie: with seperator ';' the string 'test1;test2;test3' gives three
strings as result, instead of only the first two.
--
Regards,
Joost van der Sluis
CNOC Informatiesystemen en Netwerken
http://www.cnoc.nl
Index: objpas/classes/classes.inc
===================================================================
--- objpas/classes/classes.inc (revision 1948)
+++ objpas/classes/classes.inc (working copy)
@@ -205,7 +205,7 @@
else
Break;
end;
- if (Start<>P) and (P^<>#0) then
+ if (Start<>P) then
begin
SetString(S,Start,P-Start);
Strings.Add(S);
_______________________________________________
fpc-devel maillist - [email protected]
http://lists.freepascal.org/mailman/listinfo/fpc-devel
