HiAsm

Ответов: 16884

Рейтинг: 1239

#1: 2010-09-11 13:15:17 ЛС | профиль | цитата

nesco, я против применения StrScan и Fparse вместо GetTok ничего не имею.

Я уже всё это смотрел и тоже думаю, что будет работать намного быстрее.
Уже это const Delimiters: char однозначно.

------------ Дoбавленo в 13.15:

nesco писал(а):

И чем функция... сильно отличается от GetTok

отличается кодами.
nesco, а прокомментировать function FParse слабо.

хотябы это


   Pos := -1;
.....
    J := Integer(F) - Integer(P) + 1;
  if (J > 0) and ((Pos < 0) or (J < Pos)) then Pos := J;

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!