[virmaker]

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

[Pyro]

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

[virmaker]

Код:

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 файл с существительными словами русского языка (слова написаны столбиком) и текстовый файл с произвольными словами.
Цель - сравнить файл с произвольными словами со словами в словаре и сохранить совпавшие слова в другой текстовый файл.

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

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

Код:

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