Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

SaveDialog [D7, XP]


Страницы:   1 2

Dark ©   (2007-11-15 20:43:00) 

Прочитал про savedialog...

Сделал все как просят...диалог не появляется...у меня такое чувство, что я чего-то не понимаю...привидите рабочий пример, если не сложно, с использованием этого метода. Ну или обьясните как вызвать этот диалог...


Dark   (2007-11-15 22:24:00) [1]


> Плохиш ©   (15.11.07 22:15) [19]
>
> > Dark ©   (15.11.07 20:50) [8]
> > У них как-то сервак летает. Вот код,скопированный из примера(весь):
>
>
> Враньё! Там не такой пример

Обоснуй.
Если тебе моска не хватает, чтобы он работал хотя бы 3 мин. 32 сек. (ровно столько нужно, для читания этой страницы) беспребойно, то просьба не флудить в темах.


Плохиш   (2007-11-15 22:17:00) [2]


> Dark ©   (15.11.07 22:03) [18]

Дочитал всё-таки до этого поста :-( надо было раньше бросить это занятие...


Плохиш   (2007-11-15 22:15:00) [3]


> Dark ©   (15.11.07 20:50) [8]
> У них как-то сервак летает. Вот код,скопированный из примера(весь):

Враньё! Там не такой пример.


Dark   (2007-11-15 22:03:00) [4]

saveDialog := TSaveDialog.Create(self);

Если оставить одну эту строку-не работает...*щас будет ламерский вопрос*...Почему?


Dark   (2007-11-15 22:03:00) [5]


DVM ©  

Thanks very much!


DVM   (2007-11-15 22:01:00) [6]


> Переменной(какой?!) присваивается полный путь к этому файлу

Open(Save)Dialog.FileName


> Потом можно просто юзать эту переменную в сохранении?

Memo1.Lines.SaveToFile(Open(Save)Dialog.FileName);


Dark   (2007-11-15 21:52:00) [7]

Так, я понял как создать диалог) Получилось)
А собственно его детали функционированния:
1) Пользователь выбирает файл(или создаёт)
2) Переменной(какой?!) присваивается полный путь к этому файлу
3) Потом можно просто юзать эту переменную в сохранении?


DVM   (2007-11-15 21:34:00) [8]


> and (savedialog1.filename<>'')
> then

это лишнее


Юрий Зотов   (2007-11-15 21:30:00) [9]

> Dark ©   (15.11.07 20:50) [8]

Создали диалог, настроили его - и убили.

А где же самое главное-то? Где показ и проверка  его результата?

В примере ведь это есть.


Gydvin   (2007-11-15 21:07:00) [10]

тьфу блин заврался ))
соответсвенно не открываем в мемо, а пишем из него

memo1.lines.savetofile(savedialog1.filename);


Gydvin   (2007-11-15 21:02:00) [11]


> Dark ©   (15.11.07 20:50) [8]


))

> ^) за метлой... да и источник прочитанного не указан...

Однозначно...

Но седня добрый.

Заходим на вкладку dialogs, выбираем компонент Tsavedialog, кидаем его на форму. Следом кидаем туда батон. В обработчике батона пишем следущее

...
savedialog1.filename:='';
If (savedialog1.Execute) and (savedialog1.filename<>'') then
begin

//вот здесь уже пишем сам код открытия файла. Например в тмемо.
memo1.lines.loadfromfile(savedialog1.filename);
end;


Dark   (2007-11-15 20:52:00) [12]

Ещё переменная в начале
var
saveDialog : TSaveDialog;


Palladin   (2007-11-15 20:52:00) [13]

^) за метлой... да и источник прочитанного не указан...


Dark   (2007-11-15 20:50:00) [14]

У них как-то сервак летает. Вот код,скопированный из примера(весь):
saveDialog := TSaveDialog.Create(self);
saveDialog.Title := 'Savefile';
saveDialog.InitialDir := GetCurrentDir;
saveDialog.Filter := 'Text file|*.txt|';
saveDialog.DefaultExt := 'txt';
saveDialog.FilterIndex := 1;
saveDialog.Free;


Gydvin   (2007-11-15 20:49:00) [15]

И вообще меня эта ссылка нафиг послала...


Gydvin   (2007-11-15 20:48:00) [16]


> Dark ©   (15.11.07 20:46) [4]
> сорри, жаль низя править сообщения. ВотЪ: http://www.delphisources.
> ru/pages/faq/faq_delphi_basics/TSaveDialog.php.html

Где код с "пробами"?


Dark   (2007-11-15 20:46:00) [17]

И я непонял из описания, Execute создает окно?


Dark   (2007-11-15 20:46:00) [18]

сорри, жаль низя править сообщения. ВотЪ:
http://www.delphisources.ru/pages/faq/faq_delphi_basics/TSaveDialog.php.html


Gydvin   (2007-11-15 20:46:00) [19]

Execute?

> Сделал все как просят...

где код?


asm_viator   (2007-11-15 20:44:00) [20]


> Сделал все как просят

Исходник в студию!


Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо