Помощь - Поиск - Пользователи - Календарь
Полная версия: F_grtext
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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.


Не понимаю почему не работает все перепробовал раз получилось а потом ypriamii.gif YYY.gif
Malice
Это ты таким хитрым способом решил вывести содержимое файла на экран ? Если да, то Writeln (f) не поможет, нужно читать построчно файл, а потом печатать.
N/V/K
Спасибо))) (А способ и правда хитрый(сорри, модераторы прошу вас это удалить, заранее благодарен))

Забыл так у меняж файл не хочет открываца(((
Lapp
Цитата(N/V/K @ 17.11.2006 14:41) *

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

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

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


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

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

N/V/K
Цитата
НЕ работает ЧТО ? Что вообще должна делать твоя программа ? Что это за модуль
F_grtext
?

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

Lapp дело в том что этот файл у меня везде закрыт(( а компилятор Turbo Pascal 7.0
N/V/K
 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.

unsure.gif Выводит теперь надо организовать цикл.
N/V/K
Прошу извенить но как организовать построчный вывод
Lapp
Цитата(N/V/K @ 18.11.2006 10:43) *

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

Ну да, организовать цикл:
while not EoF(F1) do begin
readln(F1,b);
writeln(b)
end;

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

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


Вроде все работает wink.gif
N/V/K
Как пользоваца процедурами у меня пишет ожидалось 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.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.