[Страдалецъ]

Вот вам готовый код. Что-то добренький я сегодня.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

program Project1; {$APPTYPE CONSOLE} uses   SysUtils,Classes,StrUtils;   Const   KeyWordsCount = 2;   KeyWords: Array[1..KeyWordsCount] of String = ('begin','end'); Var   File1,File2: TextFile;   i,p: Integer;   s: String; begin  AssignFile(File1, 'C:\Documents and Settings\All Users\Документы\tmssoftware\TAdvMemo Demos\uAddictSpellCheck.pas');  Reset(File1);  AssignFile(File2, 'c:\test.txt');  Rewrite(File2);  while not Eof(File1)  do begin     ReadLn(File1, s);     s := StringReplace(s,'  ',' ',[rfReplaceAll]) + ' ';     for i := 1 to KeyWordsCount     do begin        p := PosEx(KeyWords[i], AnsiLowerCase(s), 1);        while p > 0        do begin           WriteLn(File2, KeyWords[i]);           p := PosEx(KeyWords[i], AnsiLowerCase(s), p+Length(KeyWords[i]));           end;        end;     end;  CloseFile(File2);  CloseFile(File1); end.