[nervniy]

подскажите как сделать поиск определенных слов в файле?

[PESTS]

Сообщение от nervniy

подскажите как сделать поиск определенных слов в файле?

Смотри функцию pos();

Код:

1 2 3 4

n:=pos('привет',buf); привет - искомое слово buf - в этой переменной ищём n - с какого символа начинаеться это слово в buf. Если n=0 значит нет такого слова в buf

[nervniy]

можно поподробнее?
задание:
Дан текстовый файл f1, содержащий слова, разделенные пробелами.
Вывести в файл f2 все слова файла f1, которые являются ключевыми словами в языке Pascal.

[roamer]

см. похожую тему :
http://www.delphisources.ru/forum/showthread.php?t=8047

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

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

Код:

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.