Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ F_grtext

Автор: N/V/K 17.11.2006 14:38

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

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

Автор: 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".. Других идей нету smile.gif

Автор: 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.


Вроде все работает wink.gif

Автор: 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.