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]

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

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

А 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.

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

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