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

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

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

• Как удалить из файла все строки, содержащие цифры 3 и/или 5?
• Определить размер форма в миллиметрах
• Предназначение языков
• Редактировать содержимое ListBox в Microsoft Office Excel
• Переставить байты в переменных по следующей схеме
• Как реализовать корректный вывод в файл?
• Удаленное управление веб камерой. Видеозахват методами DirectShow и через AVICAP
• Стиль оформления delphi кода
• Генерация паролей
• Рассылка. Выпуск 120