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

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

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

• Можно ли как-то без непосредственного явного указания функции сделать указатель на функцию?
• Удалить кривую из графика
• Одним кликом открыть две ссылки
• Рассылка. Выпуск 253
• Как передать значение из <select> в action формы
• Как быстро растут пауки и мухоловки за холодильником?
• Качества программиста
• Как можно нескольким компонентам назначить ОДИН обработчик событий?
• Donat Mg минеральная вода Донат Магний
• Паскаль Турбо, матрицы