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

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

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

 
 Ответить  Открыть новую тему 
> Реализация сохранения и открытия
сообщение
Сообщение #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 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гуру
*****

Группа: Пользователи
Сообщений: 1 013
Пол: Мужской
Ада: Разработчик
Embarcadero Delphi: Сторонник
Free Pascal: Разработчик

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


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


Новичок
*

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

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


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


Новичок
*

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

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


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


Гуру
*****

Группа: Пользователи
Сообщений: 1 013
Пол: Мужской
Ада: Разработчик
Embarcadero Delphi: Сторонник
Free Pascal: Разработчик

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


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


Пионер
**

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

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


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

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

 





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