SaveDialog

← →
Dark © (2007-11-15 20:43) [0]

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

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

← →
Palladin © (2007-11-15 20:43) [1]

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

да? где?

← →
asm_viator © (2007-11-15 20:44) [2]

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

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

← →
Gydvin © (2007-11-15 20:46) [3]

Execute?

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

где код?

← →
Dark © (2007-11-15 20:46) [4]

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

← →
Dark © (2007-11-15 20:46) [5]

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

← →
Gydvin © (2007-11-15 20:48) [6]

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

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

← →
Gydvin © (2007-11-15 20:49) [7]

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

← →
Dark © (2007-11-15 20:50) [8]

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

← →
Palladin © (2007-11-15 20:52) [9]

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

← →
Dark © (2007-11-15 20:52) [10]

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

← →
Gydvin © (2007-11-15 21:02) [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;

← →
Gydvin © (2007-11-15 21:07) [12]

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

memo1.lines.savetofile(savedialog1.filename);

← →
Юрий Зотов © (2007-11-15 21:30) [13]

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

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

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

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

← →
DVM © (2007-11-15 21:34) [14]

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

это лишнее

← →
Dark © (2007-11-15 21:52) [15]

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

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

Open(Save)Dialog.FileName

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

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

saveDialog := TSaveDialog.Create(self);

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

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

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

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

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

SaveDialog Найти похожие ветки