Подсчет слов

[Stanislav]

Спасибо большое... копировать конечно не буду.. самому интересно..

[BOBAH13]

Быстрее чем прямое обращение к памяти нет. Пример парсинга на мой страничке - патчер процессов в исходниках для дельфи. Смысл прост.
К примеру:

const
  wrd = 'форум';
var
  s: String;
  p: PCHAR;
  n: Integer;
  j: Integer;
begin
  j := 1; // счетчик для слова форум
  n := 0; // 0 раз нашли
  s := 'форумафцацацофалцдфоафорумацфкафпаfwafaфорумfwafwafwaf'; // 3 раза
  p := PCHAR(s); // указываем на первый символ
  while (p^ <> #0) do // по не конец строки
  begin
    if (p^ = wrd[j]) then
    begin
      if (j = Length(wrd)) then
      begin
        inc(n);
        j := 1;
      end else
        inc(j);
    end;
    inc(p);
  end;

  showmessage(inttostr(n)); // результат
end;

Все очень быстро, ну конечно если вы еще не реализуите это на ассемблерной всатвке.. тогда вообще будет быстро... т.к. всякие Copy, Delete ( уже на опыте знаю ) очень тормозят данный процесс, если текста валом.