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

Posted by obzor under Delphi

Выяснить, есть ли в каждой строке файла буквы для слова “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');

тема на форуме

Случайные статьи

• Скрипт в читабельное для человека
• Добавить текст начиная с определенной строки
• Как переключить фокус на предыдущее активное окно?
• Открыть ссылку в Internet Explorer
• Анимация в WEB на JavaScript
• Как разместить форму в панель задач?
• Отображение изображений из базы данных
• Как разархивировать rar архив?
• Отличие обжима витой пары
• Телефон читающий по губам