<br><font size=2 face="sans-serif">Florian;</font>
<br>
<br><font size=2 face="Courier New">>>const<br>
>>  DELIMITERS = ' .,!?_-)}]>;:=@/\#9';<br>
>Replace the string by a set, this is much faster:<br>
>const<br>
>DELIMITERS : set of char = [' ','.',',','!','?','_','-',')','}',']','>',';',':','=','@','/','\',#9];</font>
<br>
<br><font size=2 face="Courier New">>if StringToCheck [succ (Index)] in DELIMITERS then<br>
>should beat the pos call easily<br>
</font>
<br><font size=2 face="Courier New">Much faster? Boy, was that an understatement. The original version I had posted checked an entire 30 meg ASCII text file in a pathetic 2 minutes. Simply making the 2 changes above that you had suggested dropped that to a mind-blowing 4 seconds! That's a staggering difference. But I must confess that I don't know exactly why there would be such a huge difference. Why is a "set of char" soooo much faster then a const?</font>
<br><font size=2 face="Courier New"><br>
>while (Index < LineLength) and (CurrentChar in ['A'..'Z','a'..'z','0'..'9']) do<br>
>might be faster as well</font>
<br>
<br><font size=2 face="Courier New">This was certainly cleaner looking then what I had posted, but I can't honestly tell if it makes much difference because the previous update was so fast it left little room for improvement!  :-)</font>
<br>
<br><font size=2 face="Courier New">Thanks much for the tip...</font>
<br>
<br><font size=2 face="Courier New">Jim</font>