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.
Не понимаю почему не работает все перепробовал раз получилось а потом
Автор: Malice 17.11.2006 15:57
Это ты таким хитрым способом решил вывести содержимое файла на экран ? Если да, то Writeln (f) не поможет, нужно читать построчно файл, а потом печатать.
Автор: N/V/K 17.11.2006 17:41
Спасибо))) (А способ и правда хитрый(сорри, модераторы прошу вас это удалить, заранее благодарен))
Забыл так у меняж файл не хочет открываца(((
Автор: lapp 17.11.2006 19:52
Цитата(N/V/K @ 17.11.2006 14:41)
Забыл так у меняж файл не хочет открываца(((
Может, ты этот файл держишь открытым где-то? скажем, в Far на просмотр.. Закрой вьюер. Кстати, какой у тебя компилятор?
Автор: klem4 17.11.2006 20:55
Давайте закончим заниматься гаданием на кофейной гуще ?
Цитата
Не понимаю почему не работает все перепробовал раз получилось а потом ypriamii.gif
НЕ работает ЧТО ? Что вообще должна делать твоя программа ? Что это за модуль
Цитата
F_grtext
?
Зачем ты пытаешься открыть (?) графический режим, открыть файл, записть в него пустую строчку, что ты сделать вообще хочешь ?!
Автор: N/V/K 18.11.2006 12:27
Цитата
НЕ работает ЧТО ? Что вообще должна делать твоя программа ? Что это за модуль F_grtext ?
В модуль F_GRTEXT включено около 20 программ, большая часть которых имитирует обычный текстовый режим ввода\вывода для программ, работающих с графическим экраном. Используя эти программы, Вы сможете без особого труда перенести рабоу ранее созданных диалоговых программ, расчитанных на стандартные процедура ввода\вывода, в графическую среду. После такого переноса программа сможет инициализировать графический режим и работать внешне точно так же, как если бы она работала в текстовом режиме. Иными словами, модуль позволяющий обединить в рамках одной программы два режима одновременно- текстовый и графический.
Lapp дело в том что этот файл у меня везде закрыт(( а компилятор Turbo Pascal 7.0
Автор: N/V/K 18.11.2006 13:32
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.
Выводит теперь надо организовать цикл.
Автор: N/V/K 18.11.2006 13:43
Прошу извенить но как организовать построчный вывод
Автор: lapp 18.11.2006 14:20
Цитата(N/V/K @ 18.11.2006 10:43)
Прошу извенить но как организовать построчный вывод
Ну да, организовать цикл:
while not EoF(F1) do begin readln(F1,b); writeln(b) end;
Это при условии, что строчки не превышают 255 символов, разумеется.
Почему не открывается твой файл - загадка. Попробуй перенести его в рабочую директорию.. Убедись, что ты не путаешь букву "l" с цифрой "1".. Других идей нету
Автор: N/V/K 18.11.2006 14:36
Выводит теперь надо организовать цикл. У меня 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 14:49
Как пользоваца процедурами у меня пишет ожидалось 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.