IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> F_grtext, Не могу открыть файл(
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 32
Пол: Мужской
Реальное имя: Николай

Репутация: -  0  +


 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

Сообщение отредактировано: N/V/K -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Профи
****

Группа: Пользователи
Сообщений: 705
Пол: Мужской

Репутация: -  20  +


Это ты таким хитрым способом решил вывести содержимое файла на экран ? Если да, то Writeln (f) не поможет, нужно читать построчно файл, а потом печатать.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 32
Пол: Мужской
Реальное имя: Николай

Репутация: -  0  +


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

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

Сообщение отредактировано: N/V/K -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Цитата(N/V/K @ 17.11.2006 14:41) *

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

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


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


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

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


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

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



--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Новичок
*

Группа: Пользователи
Сообщений: 32
Пол: Мужской
Реальное имя: Николай

Репутация: -  0  +


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

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

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

Сообщение отредактировано: N/V/K -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Новичок
*

Группа: Пользователи
Сообщений: 32
Пол: Мужской
Реальное имя: Николай

Репутация: -  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.

unsure.gif Выводит теперь надо организовать цикл.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Новичок
*

Группа: Пользователи
Сообщений: 32
Пол: Мужской
Реальное имя: Николай

Репутация: -  0  +


Прошу извенить но как организовать построчный вывод
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Цитата(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


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Новичок
*

Группа: Пользователи
Сообщений: 32
Пол: Мужской
Реальное имя: Николай

Репутация: -  0  +


Выводит теперь надо организовать цикл. У меня 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 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


Новичок
*

Группа: Пользователи
Сообщений: 32
Пол: Мужской
Реальное имя: Николай

Репутация: -  0  +


Как пользоваца процедурами у меня пишет ожидалось 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.


Сообщение отредактировано: N/V/K -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.09.2020 17:17
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name