Delphi.Чтение, запись и обработка текстового файла средствами компонента Memo.

[armchair]

Выяснить, есть ли в каждой строке файла буквы для слова “month”.Результат поместить в новый файл в виде: “1” - true; “2” - false; и т.д. (1,2,3, и т д - это номер строки, true - если есть, нет - false)

Форма должна содержать 2 компонента Memo: первый компонент должен быть использован при чтении исходного файла, второй компонент при записи преобразованного файла.

[Вадим Мошев]

Что не получается? Показывайте наработки.

[Serge_Bliznykov]

Memo1.LoadFromFile('d:\file1.txt');
for i:=0 to Memo1.Lines.Count-1 do begin
  s := Memo1.Lines[i];
  if (pos('m',s)>0) and (pos('o',s)>0) and (pos('n',s)>0) and (pos('t',s)>0) and (pos('h',s)>0) then Memo2.Lines.Append(IntToStr(i+1)+' true')
  else Memo2.Lines.Append(IntToStr(i+1)+' false');
end;
Memo2.Lines.SaveToFile('d:\file2.txt');