Поиск служебных слов

[maxon56]

Есть программа (для примера):

Program primer;
Var a1, a2:integer;
Begin
a1:=5
a2:=(a1-555mkj111)/5;
a1:=(a2+55)/3;
writeln(a1, ‘ ‘ , a2);
End.

Как сделать чтобы программа находила в ней служебное слово и записывала количество повторений в StringGrid?
Ай нид хелп ребята.

[astecenko]

PosEx в цикле, не?
В Memo можно обрабатывать весь текст одной строкой, у него для этого свойство Text есть.
И может быть надо обратить внимание на регистр букв, в slova.txt у Вас всё в нижнем, а в программе это не учитывается. Во входном файле то может быть по разному.

[Serge_Bliznykov]

по хорошему Вам нужно смотреть и копать в сторону лексического анализатора (парсера) - т.е. сначала разделить текст исходной программы на отдельные лексемы, а потом уже обрабатывать их...


p.s. исходник не смотрел...