Текстовый файл Опции

[LeoDaVinci]

Как вывести на экран те строки текстого файла, которые сдержат данное слово?

procedure Vivod(var f:tf);
var
  x,s:st;
begin
  reset(f);
  writeln('Vvedite slovo:');
  readln(s);
  while not EOF(f) do
  [Вот тут у меня ступор ] 
  read(f,x);
  write(x);

  closefile(f);
end;

М

теги... мисс_граффити

Сообщение отредактировано: мисс_граффити - 24.02.2007 20:14

[Bokul]

Точно, давно не программировал..

LeoDaVinci, тогда придется разбивать строку на слова и проверить каждое с них на совпадение, хотя это все можно делать параллельно. Такие темы поднимались десятки раз, если не сотни. Поищи по форуму, будут вопросы - задавай, Разбиение на слова. Все способы. - для старта.

Добавлено через 1 мин.

А что?Разве POS не сработает?

Как раз и сработает, а не надо..

Добавлено через 1 мин.

Как вывести на экран те строки текстого файла, которые сдержат данное слово?

Хотя, может это и надо? Нигде речь о словах не идёт..