Чтение, запись и обработка текстового файла средствами компонента 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');

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

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

• Запуск программы в определенное время
• Геопозиция
• Создать каталог при сохранении если он отсутсвует
• Загрузка ресурса в RichEdit
• Как преобразовать цифры в их буквенное выражение
• Рассылка!! №51
• В строке есть что-то, в обязательном порядке обрамлённое двойными кавычками, нужно написать код, чтобы то, что в двойных кавычках, взять в скобки
• Тег якоря в URL
• Как округлить число до десятой в delphi?
• Обработка строк (Pascal)