2016-12-31 8:18 GMT-03:00 Bo Berglund <bo.bergl...@gmail.com>:

> On Sat, 31 Dec 2016 11:27:53 +0100, greim
>
> The Readln approach followed by splitting in a stringlist is enough of
> an improvement that I can use it.
>
>
Did you look at StrUtils.ExtractSubStr ?

Should be faster than TStrings;

PosWord := 1;
Word := ExtractSubstr(Line, PosWord, [' ']);
while (Word <> '') do
begin
  //do work
  Word := ExtractSubstr(Line, PosWord, [' ']);
end;

Luiz
_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

Reply via email to