Анализ текста программы на Delphi. Сколько раз встречается оператор.

[alex67]

Доброго времени суток!

Подскажите пожалуйста решение вот такой задачки: посчитать сколько раз в тексте произвольной программы встречается оператор FOR.

Заранее благодарен!

[Utkin]

Ну так загружаешь в Мемо файл проги и подсчитваешь число слова For.
Для этого нужно две функции:
1. Подсчет сколько раз встречается For в строке
2. Подсчет сколько раз встречается For в Мемо (основываясь на первой).

Искать в строке можно по функции Pos (описание можно найти и в справке и в инете)

[Serge_Bliznykov]

Ну так загружаешь в Мемо файл проги и подсчитваешь число слова For.

ну, это только если упростить задачу.
в реальной жизни такой алгоритм может дать сбой - он подсчитает и те FOR, которые закомментированы (ну это ещё не так страшно), но и те, которые написаны в тексте.
Характерно, что для самой программы подсчёта этот подсчёт будет работать некорректно:

  if Pos('FOR', Memo1.Lines[i])>0 then ...

сколько в этом код встречается оператор FOR ?

alex67, но, я думаю, что Вас (и Вашего преподавателя) должен устроить алогоритм, предложенный Utkin - в противном случае надо писал лексический анализатор, а это уже совершенно иной уровень сложности!

[Utkin]

В задании о комментариях не слова, я тоже о них думал, но нет так нет . Разве комментарий не текст программы?

посчитать сколько раз в тексте произвольной программы встречается оператор FOR.

[Stilet]

Все робята, хватит дракона ремонтировать.
Автор помоему уже понял что залез в склюзкую тему.
От себя дополню своим способом, использую его давно и сбоя он еще не давал

var s:string;k,i:integer;
begin
 s:='For to do my FOR by o by';
 s:=UpperCase(s);k:=0;
 for I := 1 to length(s) do
   k:=k+byte(copy(s,i,3)='FOR');
 writeln(k);
 readln;
end.

[alex67]

Всем большое спасибо за идеи! Буду пробовать.