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

[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;

М

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

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

[Bokul]

procedure Vivod(var f:tf);
var
  x,s:st;
begin
  reset(f);
  writeln('Vvedite slovo:');
  readln(s);// <--- забыл это
  while not EOF(f) do
  begin
    readln(f,x);
    if pos(s,x)<>0 then
      writeln(x);
  end;
  close(f);
end;

var
  textf:tf;
  slovo:st;
  sn,sn1:shortstring;
begin
  sn:='d:\temp\ka.txt';
  assign(textf,sn);
  Sozd(textf);
  Vivod(textf);
  readln;// без "(sn1)" - зачем использовать лишнею переменную..
end.