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

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

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

 
 Ответить  Открыть новую тему 
> Реализация сохранения и открытия
Artem7
сообщение 21.05.2012 17:17
Сообщение #1


Пионер
**

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

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


Как реализовать сохранение в файл?т.е чтобы можно было выбрать куда сохранять имя файла, и так же с открытием файла?!

Читал что через модуль Dos реализуется но че то почитал в нете но так и не нашёл полного описания
Вот процедуры сохранения и открытия а как сделать чтобы как в меню паскале можно было выбирать каталог имя файла и т.д?
Procedure Soxr;
Var i,j:integer;
Begin
Assign(f,'ris.txt');Rewrite(f);
For j:=19 to m do Begin
For i:=3 to n do write(f,GetPixel(i,j),' ');
writeln(f);
End;
End;
Procedure Otkr;
Var i,j,p:integer;
Begin
Assign(f,'ris.txt');Reset(f);
For j:=19 to m do Begin
For i:=3 to n do Begin read(f,p);Putpixel(i,j,p);End;
readln(f);
End;
End;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
IUnknown
сообщение 21.05.2012 18:13
Сообщение #2


a.k.a. volvo877
*****

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

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


Цитата
а как сделать чтобы как в меню паскале можно было выбирать каталог имя файла и т.д?
Меню (также как и вся IDE) Паскаля написано на TurboVision, с использованием этой библиотеки подобный функционал добавляется одним вызовом нужного стандартного диалога. Если же у тебя в программе не используется TV - то это проблематично. Реализуемо, но писанины много, надо организовывать вывод имен папок/файлов через FindFirst/FindNext, при выборе папки - опять выводит уже ее подпапку, до тех пор, пока не будет выбран файл. Кстати, та тема, которую я открыл в "Практике продвинутого программирования" о прокрутке результатов поиска, изначально мной разрабатывалась именно для построения списка файлов. Но это было давно, исходников того модуля не сохранилось.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Artеm
сообщение 21.05.2012 18:45
Сообщение #3


Новичок
*

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

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


а как это правильно организовывать?просто я сделал программу пайнт но мне нужно выбор места сохранения имени файла и так же с открытием
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Artеm
сообщение 21.05.2012 19:13
Сообщение #4


Новичок
*

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

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


или дайте ссылку на описание модуля dos с примерами а то искал я и всякое находилось но ценной информации для ся не нашел
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
IUnknown
сообщение 21.05.2012 19:38
Сообщение #5


a.k.a. volvo877
*****

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

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


Поиск по форуму по ключевым словам +FindFirs* +FindNex* выдаст тебе кучу примеров, как ищутся папки/файлы в текущей директории. Что касается твой задачи - ты бы больше информации сразу давал - было бы лучше. Это у тебя все в текстовом режиме, или в графическом? (логично, правда, что Paint работает в графике, на фиг ему вообще выходить в текстовый режим? Но ты же хочешь "как в Паскале", а там - текст. Вот и понимай после этого как хочешь.)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Artem7
сообщение 21.05.2012 19:51
Сообщение #6


Пионер
**

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

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


В графическом в текстовый документ сохранятся потому что так легче сохранять, массив выдаёт переполнение
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 



- Текстовая версия 20.07.2025 17:36
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"