[virmaker]

Всем здравствуйте. Возникла проблема. Имеется два файла - один txt файл с существительными словами русского языка (слова написаны столбиком) и текстовый файл с произвольными словами.
Цель - сравнить файл с произвольными словами со словами в словаре и сохранить совпавшие слова в другой текстовый файл.

[Pyro]

если нужен результат, то такое надо писать на ruby(например)
если для обучения, то надо конкретные вопросы задавать по коду

[virmaker]

Код:

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

procedure TForm1.Button1Click(Sender: TObject); const f1='1.txt';   f2='2.txt';   f3='3.txt'; var str1, str2, r: TStringList;    i,n: integer;    s: string; begin     str1:=TStringList.Create;     str1.LoadFromFile(f1);     str2:=TStringList.Create;     str2.LoadFromFile(f2);     r:=TStringlist.Create;     i:=0;     while i<str1.Count do begin       n:=0;       s:=str1[i];       while n<str2.Count do begin         if s=str2[n] then begin           r.add(s);           str1.delete(i);           dec(i);           str2.delete(n);           break;         end;         inc(n);       end;       inc(i);     end;     str1.Free;     str2.Free;     r.SaveToFile(f3);     r.Free; end;

lmikle: Пользуемся тегами!

[Pyro]

значит проблема из такой:

Имеется два файла - один txt файл с существительными словами русского языка (слова написаны столбиком) и текстовый файл с произвольными словами.
Цель - сравнить файл с произвольными словами со словами в словаре и сохранить совпавшие слова в другой текстовый файл.

сократилась в такую: превратить текст в слова в столбик

можно для начала заменить пробелы знаками конца строки

Код:

1	str2.text := StringReplace(str2.text, ' ', #13#10, [rfreplaceall]);