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.

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

Это ты таким хитрым способом решил вывести содержимое файла на экран ? Если да, то Writeln (f) не поможет, нужно читать построчно файл, а потом печатать.

Спасибо))) (А способ и правда хитрый(сорри, модераторы прошу вас это удалить, заранее благодарен))

Забыл так у меняж файл не хочет открываца(((

Может, ты этот файл держишь открытым где-то? скажем, в Far на просмотр.. Закрой вьюер.
Кстати, какой у тебя компилятор?

Давайте закончим заниматься гаданием на кофейной гуще ?



НЕ работает ЧТО ? Что вообще должна делать твоя программа ? Что это за модуль ?

Зачем ты пытаешься открыть (?) графический режим, открыть файл, записть в него пустую строчку, что ты сделать вообще хочешь ?!

В модуль F_GRTEXT включено около 20 программ, большая часть которых имитирует обычный текстовый режим ввода\вывода для программ, работающих с графическим экраном. Используя эти программы, Вы сможете без особого труда перенести рабоу ранее созданных диалоговых программ, расчитанных на стандартные процедура ввода\вывода, в графическую среду. После такого переноса программа сможет инициализировать графический режим и работать внешне точно так же, как если бы она работала в текстовом режиме. Иными словами, модуль позволяющий обединить в рамках одной программы два режима одновременно- текстовый и графический.

Lapp дело в том что этот файл у меня везде закрыт(( а компилятор Turbo Pascal 7.0

 uses graph,F_grtext;
var
B:string; F1:Text;
begin
assign(f1,'d:\1.txt');
reset(f1);
readln(F1,b);
writeln(b);
close(f1);
readln;
end.

Выводит теперь надо организовать цикл.

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

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

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

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

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

Выводит теперь надо организовать цикл. У меня TP7 на диске D:\ а я писал C:\1.txt изменил на D:\1.txt и заработало.

А Function Getmaxchar:byte может помочь?

 Uses Graph,F_GRtext,crt;
var
b:string; F1:Text;
u,n:integer;
begin
clrscr;
assign(f1,'d:\1.txt');
reset(f1);
while not EOF(f1) do begin
readln(f1,b);
writeln(b);
end;
writeln('Нажмите Enter для завершения.');
close(f1);
readln;
end.

Вроде все работает

Как пользоваца процедурами у меня пишет ожидалось Begin

  Uses Graph,F_GRtext,crt;
procedure setwindow (x1,x2,y1,y2,border:byte;header:string;clip,build,play:boolean);
procedure Scrolling(N:integer);
var
b:string; F1:Text;
begin
x1:=20;
x2:=20;
y1:=20;
y2:=20;
border:=2;
clip:=true;
build:=true;
play:=true;
N:=6;
header:=('Лекции');
assign(f1,'d:\1.txt');
reset(f1);
while not EOF(f1) do begin
readln(f1,b);
writeln(b);
end;
writeln('Нажмите Enter для завершения.');
close(f1);
readln;
end;
end;
end.