F_grtext, Не могу открыть файл( Опции

[N/V/K]

 uses graph,F_grtext;
var
d,r:integer;
f:text;
begin
d:=detect;
initgraph(d,r,' ');
assign(f,'1.txt');
reset(f);
graphwriteon;
writeln(f);
close(f);
readln;
end.

Не понимаю почему не работает все перепробовал раз получилось а потом

Сообщение отредактировано: N/V/K - 18.11.2006 9:27

[N/V/K]

Прошу извенить но как организовать построчный вывод

[Lapp]

Прошу извенить но как организовать построчный вывод

Ну да, организовать цикл:

while not EoF(F1) do begin
  readln(F1,b);
  writeln(b)
end;

Это при условии, что строчки не превышают 255 символов, разумеется.

Почему не открывается твой файл - загадка. Попробуй перенести его в рабочую директорию.. Убедись, что ты не путаешь букву "l" с цифрой "1".. Других идей нету