Скачать: CL | DM;

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

← →
assassin8899   (2008-05-24 18:42) [0]

По нажатии на кнопку вызываю метод SaveDialog и проверяю, если есть БД, то перезаписываю её.
Главная проблема, что эта процедура работает лишь один раз.При повторном нажатии на кнопку "Yes" условия "База данных уже есть!Хотите её перезаписать?" пользовательские сообщения messegeDlg "Сообщение1" "Сообщение2" обрабатываются но deleteFile(FileName) никак не реагирует и в результате дальше идет системная ошибка "БД уже создана".

procedure TForm15.Button1Click(Sender: TObject);
label a,b;
Var
 cat      : Variant; //ADOX.Catalog
 FileName : String;
begin
 a:
 if savedialog1.Execute then
 begin
 FileName:=savedialog1.FileName+".mdb";
   if fileexists(FileName) then
   begin
   if messageDlg("База данных уже есть!Хотите её перезаписать?",mtInformation,[mbYes,mbNo],0)=mrYes then
       begin
      messageDlg("Сообщение 1!",mtInformation,[mbOk],0);
   deletefile(filename);
      messageDlg("Сообщение 2!",mtInformation,[mbOk],0);
      goto b;
       end
        else
      goto a;
   end
   else
   goto b;

 b:

// Далее Создание БД

---

← →
TIF ©   (2008-05-24 19:26) [1]

Удалено модератором

---

← →
Loginov Dmitry ©   (2008-05-24 22:23) [2]

> deletefile(filename);


Это не гарантирует удаление файла. Для того, чтобы убедиться что файл удален, следует вызвать:
if not DeleteFile() then
 RaiseLastOSError;
И это на 100% не гарантирует удаление файла. Если DeleteFile() вернула True, FileExists() дает False, но файл не был удален, то при попытке создания файла с тем же именем произойдет ошибка.


> if savedialog1.Execute then
> begin
> FileName:=savedialog1.FileName+".mdb";


Подозрительная довольно-таки конструкция. Пользователь уже выбрал конкретный файл (задал название), а ты ему еще расширение какое-то приписываешь. Зачем?

А goto лучше выбросить. Delphi - это тебе не Бейсик, в goto не нуждается.

---

← →
assassin8899   (2008-05-24 22:40) [3]

>>Подозрительная довольно-таки конструкция. Пользователь уже выбрал >>конкретный файл (задал название), а ты ему еще расширение какое-то >>приписываешь. Зачем?

Так он не определяет файл как .mdb

---

← →
TIF ©   (2008-05-24 22:42) [4]

Удалено модератором

---

← →
Virgo_Style ©   (2008-05-25 00:05) [5]

assassin8899   (24.05.08 18:42)
FileName:=savedialog1.FileName+".mdb";

ChangeFileExt ?

---

← →
Loginov Dmitry ©   (2008-05-25 01:00) [6]

> Да, кстати, расширение надо приставлять вручную. ибо в поле
> "Имя файла" мало кто его догадывается писать


А выпадающий список "Тип файла" на кой?

---

← →
TIF ©   (2008-05-25 01:04) [7]

Удалено модератором

---

← →
sniknik ©   (2008-05-25 01:41) [8]

> ибо в поле "Имя файла" мало кто его догадывается писать %)
в "сейведиалоге" задаешь дефаултное расширение и при пропуске его юзером оно добавляется.

> Если этого не делать, на диске ведь просто сохранится файл, вообще без расширения, с одним только именем...
и ничего страшного, раз уж так выбрали так и нужно сохранять... а черезчур "умные" программы которые к моему уже заданному еще один ".mdb" "пристегнут" в корзину.

---

← →
TIF ©   (2008-05-25 01:46) [9]

Удалено модератором

---

← →
TIF ©   (2008-05-25 01:47) [10]

Удалено модератором

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.013 c