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

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

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

• Определить часто встречающийся символ в строке
• Delphi — вывод всех данных с таблицы
• Найти координаты высоты треугольника
• TThread и GUI
• Загрузить в ListView список файлов и директорий
• array
• УРОК 27. МНОЖЕСТВЕННОЕ НАСЛЕДОВАНИЕ
• Бинарные файлы и C#
• Подавление и выплеск деструктивных эмоций.
• Как отключить js в webbrowser