Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Работа с файлами 
V
    Опции темы
svarogik
Дата 12.7.2006, 21:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 159
Регистрация: 20.3.2006

Репутация: нет
Всего: нет



Я создаю програму в которой мне нужно обращатся к файлам из разных директорий, тоесть я поработал со своей программой, теперь мне надо сохранить то что я написал в особом файле,  аналог в обычных программах Save file as, или мне надо продолжить работу открыв файл в котором я уже что-то наделал и редактировать его, аналог Load file. Мне кажется что существует стандартный менеджер файлов, и мне не обязательно писать свой. Итак весь смысл для меня в том чтоб я залез в менеджер (представим что это функция) и на выходе получил адрес директории (типа string). И еще  можно чтоб способ использования файла  (fmcreate, fmopenread и прочее) зависел от того как я этот файл открыл, ну тоесть сейв или лоад? Менеджер желательно такой чтоб мог сам папки создавать. 
PM MAIL   Вверх
Alexeis
Дата 12.7.2006, 21:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459



компоненты TOpenDialog и TSaveDialog.
Более расширенные варианты стандатрных диалогов (если хочется по красивее и функциональнее) можно найти на torry.net 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
svarogik
Дата 12.7.2006, 21:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 159
Регистрация: 20.3.2006

Репутация: нет
Всего: нет



нда я бы и сам мог найти там чнадо было только прокрутить панельку,

Добавлено @ 21:19 
а теперь вопрос как ими пользоваться?

Добавлено @ 21:20 
у меня есть какая то информация и я хочу её сохранить в виде файла с помощью диалога

Добавлено @ 21:23 
пусть у меня есть область Edit в которой написано edit , как мне это сохранить в виде текстового файла? причем я с помощью диалога выбираю название файла 
PM MAIL   Вверх
BinaryEvil
Дата 12.7.2006, 21:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 98
Регистрация: 4.3.2006

Репутация: -1
Всего: 2



FileOpen, FileCreate, FileRead, FileWrite
winAPI: OpenFile, CreateFile, ReadFile, WriteFile =)
CloseHandle в конце 
PM MAIL   Вверх
svarogik
Дата 12.7.2006, 21:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 159
Регистрация: 20.3.2006

Репутация: нет
Всего: нет



не я все это знаю, тока как к этому диалог приделать?

Добавлено @ 21:28 
тоесть какая то кнопка которая всю ботву в поле Edit  сохраняет в виде, тут тосамое интересное, проблема в том чтоб сохраняемый фал имя получал из диалога, а не при написании программы все забивалось 
PM MAIL   Вверх
BinaryEvil
Дата 12.7.2006, 21:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 98
Регистрация: 4.3.2006

Репутация: -1
Всего: 2



диалоги возвращают строковое значение - путь к файлу 
PM MAIL   Вверх
svarogik
Дата 12.7.2006, 21:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 159
Регистрация: 20.3.2006

Репутация: нет
Всего: нет



моя проболема наверное еще в том что я не понимаю как диалог работает, я представляю что он возвращает какието значения

Добавлено @ 21:31 
смотри вот у меня кнопка онклик 
Код

Procedure  TEditor.N4Click(Sender: TObject);
begin

end;

end.


что внутри писать?

Добавлено @ 21:32 
как сделать так чтоб в какуюто переменную путь записался?

Добавлено @ 21:41 
или какой метод возвращает значение, не GetNamePath случайно? 
PM MAIL   Вверх
BinaryEvil
Дата 12.7.2006, 21:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 98
Регистрация: 4.3.2006

Репутация: -1
Всего: 2



"проблема в ДНК"=)
opendialog.execute - выводится диалог
opendialog.filename - результат выбора пользователя
Код

opendialog1.execute;
fn:=opendialog.filename;
fh:=FileCreate(fn);
strpcopy(buff,edit1.text);
filewrite(fh,buff,length(buff));
closefile(fh);
 
PM MAIL   Вверх
svarogik
Дата 12.7.2006, 21:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 159
Регистрация: 20.3.2006

Репутация: нет
Всего: нет



fn что такое?

Добавлено @ 21:47 
всмысле какого типа?  
PM MAIL   Вверх
BinaryEvil
Дата 12.7.2006, 22:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 98
Регистрация: 4.3.2006

Репутация: -1
Всего: 2



лично для тебя нужно делфи на олбанском. шоп я сказал "учи олбанский" бгагага

Цитата(svarogik @  12.7.2006,  21:44 Найти цитируемый пост)
fn что такое?

Цитата(svarogik @  12.7.2006,  21:44 Найти цитируемый пост)
всмысле какого типа? 

пущай это останется для тебя тайной. разгадку ты найдёшь в великом учебнике Самоучитель Дэлфи
rtfm =) 
PM MAIL   Вверх
Albinos_x
Дата 12.7.2006, 22:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108



fn:string; 


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
BinaryEvil
Дата 12.7.2006, 22:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 98
Регистрация: 4.3.2006

Репутация: -1
Всего: 2



ладна, чёта меня занесло.
Код

Procedure  TEditor.N4Click(Sender: TObject);
var fh:thandle,fn:string;buff: PChar;
begin
opendialog1.execute;
fn:=opendialog.filename;
fh:=FileCreate(fn);
buff:=stralloc(length(edit1.text));
strpcopy(buff,edit1.text);
filewrite(fh,buff,length(buff));
closefile(fh);
end; 
 

Это сообщение отредактировал(а) BinaryEvil - 12.7.2006, 22:06
PM MAIL   Вверх
MIX55
Дата 12.7.2006, 22:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


много работы
*


Профиль
Группа: Awaiting Authorisation
Сообщений: 208
Регистрация: 23.10.2005
Где: Здесь

Репутация: 3
Всего: 4



Цитата

fn что такое?


Цитата

всмысле какого типа?  


fn имеет тип string.
я тебе советую заглануть  вот сюда
Расписано все подробно и для начинающих 
--------------------
Hарод, а как в дельфи писать паскалевские проги....?*********************************************Жизнь слишком коротка, чтобы писать на Assembler'e
PM MAIL ICQ   Вверх
svarogik
Дата 12.7.2006, 22:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 159
Регистрация: 20.3.2006

Репутация: нет
Всего: нет



Надеюсь из них программистов делать не станете?


Альбинос я уже понял спасибо, только это не работает, я свое попробовал, это тоже не пашет, так можно делать
Код

f_name:=savedialog1.FileName;
fn:=Tfilestream.create(f_name,fmcreate);
str:='ppz';
fn.Write(str,2);
fn.Free;
 
PM MAIL   Вверх
svarogik
Дата 12.7.2006, 22:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 159
Регистрация: 20.3.2006

Репутация: нет
Всего: нет



[Error] MapEditor.pas(113): ';' expected but ',' found
[Error] MapEditor.pas(116): Undeclared identifier: 'opendialog'
[Error] MapEditor.pas(116): Missing operator or semicolon
[Error] MapEditor.pas(121): Incompatible types
[Error] MapEditor.pas(143): '.' expected but ';' found
[Fatal Error] Map_Editor.dpr(7): Could not compile used unit '..\MapEditor.pas'

Добавлено @ 22:15 
что такое fh

Добавлено @ 22:17 
Код

procedure TEditor.N4Click(Sender: TObject);
var f_name:string;buff: PChar;
begin
opendialog1.execute;
f_name:=opendialog1.filename;
fn:=FileCreate(f_name,fmcreate);
buff:=stralloc(length(edit1.text));
strpcopy(buff,edit1.text);
filewrite(fh,buff,length(buff));
closefile(fh);
end; 

 я вот так сделал, в чем ожибка? стопорится после fn:=FileCreate(f_name,fmcreate);

Добавлено @ 22:22 
Если не можете помоч то напишите пожалуйста прогу, которая берет и записывает на диск любое что нибудь, с помощью кнопки, которая открывает режим диалога, а записывает в выбранный в диалоговом окне файл 
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0868 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.