SAVEDIALOG

← →
Viper © (2005-07-14 17:38) [0]

как сделать чтобы прользеватель вводил имя файла, а расширение добавлялось автоматически?

← →
begin...end © (2005-07-14 17:40) [1]

Свойство DefaultExt?

← →
Viper © (2005-07-14 18:19) [2]

либо я что-то не так делаю или...
открываеться sevadialog я нажимаю 1 и "enter" у меня сохраняеться файл 1 без разширения???
DefaultExt:="*.ref"
DefaultExt:=".ref"
DefaultExt:="ref"

← →
Просто Джо © (2005-07-14 18:21) [3]

А Filter устанавливал?

← →
Viper © (2005-07-14 18:22) [4]

да, он один, *.ref

← →
Просто Джо © (2005-07-14 18:25) [5]

Что у тебя выдает следующий код:
procedure TForm1.Button1Click(Sender: TObject); begin SaveDialog1.DefaultExt := "ref"; SaveDialog1.Filter := "ref files|*.ref"; if SaveDialog1.Execute then ShowMessage (SaveDialog1.FileName) end;

← →
Viper © (2005-07-14 18:31) [6]

Сообщение с полным адресом именем и расширением

← →
Просто Джо © (2005-07-14 18:31) [7]

Ну, так в чем проблема?

← →
Viper © (2005-07-14 18:33) [8]

открываеться sevadialog я нажимаю 1 и "enter" у меня сохраняеться файл 1 без разширения???

← →
Viper © (2005-07-14 18:41) [9]

Странно все должно работать, а ничего не работает...

← →
Просто Джо © (2005-07-14 18:41) [10]

У тебя с логикой впорядке?
Код
procedure TForm1.Button1Click(Sender: TObject); begin SaveDialog1.DefaultExt := "ref"; SaveDialog1.Filter := "ref files|*.ref"; if SaveDialog1.Execute then ShowMessage (SaveDialog1.FileName) end;
показывает файл с расширением? Ты говоришь, что да. Значит:
1) твой код присвоения значений отличается от моего (рабочего, как ты сам убедился)
2) При сохранении ты сам обрезаешь где-то расширение. Тогда причем здесь SaveDialog??
Так где проблема? Не можешь переделать код по образцу или в чем?

← →
Просто Джо © (2005-07-14 18:42) [11]

Приведи тогда код сохранения файла.

← →
Viper © (2005-07-14 18:52) [12]

если написать так как ты говоришь это будет выглядеть
procedure TForm1.Button1Click(Sender: TObject); begin SaveDialog1.DefaultExt := "ref"; SaveDialog1.Filter := "ref files|*.ref"; if SaveDialog1.Execute then ShowMessage (SaveDialog1.FileName); Memo1.Lines.SaveToFile(SaveDialog1.FileName); end; все классно, есть расширение, но при нажатии "отмены" появляеться ошибка

я ето сделал таким образом
procedure TForm1.Button1Click(Sender: TObject); begin SaveDialog1.DefaultExt := "ref"; SaveDialog1.Filter := "ref files|*.ref"; if SaveDialog1.Execute then ShowMessage (SaveDialog1.FileName); end; procedure TForm1.SaveDialog1CanClose(Sender: TObject; var CanClose: Boolean); begin Memo1.Lines.SaveToFile(SaveDialog1.FileName); end;
и вот в этом случае расширение пропадает!

т.е. юзера нужно предупреждать либо не вздумай жать "отмена" либо обязательно пиши расширение так?

procedure TForm1.Button1Click(Sender: TObject); begin SaveDialog1.DefaultExt := "ref"; SaveDialog1.Filter := "ref files|*.ref"; if SaveDialog1.Execute then Memo1.Lines.SaveToFile(SaveDialog1.FileName);

И все дела

Я делал if Pos(".", SaveDialog1.FileName)=0 then SaveDialog1.FileName:=SaveDialog1.FileName+".ext"
ext - нужное расширение.
Все нормально работает.

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