Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.15;
Скачать: CL | DM;

Вниз

исключения   Найти похожие ветки 

 
Катерина   (2005-12-27 22:44) [0]

Как создать файл если я добавляю  текстовый  документ в TreeView, а пользователь в OpenDialog.FileName вписывает название файла, которого на диске нет?

procedure TForm1.AddDocClick(Sender: TObject);
begin
if OpenDialog1.Execute then begin
 try
  if not FileExists (OpenDialog1.FileName)then
   raise OpenException.Create ("Файл не существует!Создать его?");
   AddingDocument;
 except
  on E:OpenException do begin
   Msg := MessageDlg (E.Message, mtWarning, [mbYes, mbNo], 0);
     if Msg = mrNo then exit
      else
        AddingDocument
      //Вот здесь должен создаваться новый файл
 end;
 end;
end
else exit;
end;

Заранее спасибо:)


 
Кефир87 ©   (2005-12-27 22:51) [1]

if not FileExists(OpenDialog1.FileName) then ОШЫПКА!
Зачем все доверять исключениям...


 
Johnmen ©   (2005-12-27 23:18) [2]

...и вообще есть же TSaveDialog


 
k2 ©   (2005-12-28 08:56) [3]

FileCreate



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

Текущий архив: 2006.01.15;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.059 c
14-1134818862
СергоБ
2005-12-17 14:27
2006.01.15
Сохранение Timage в BMP иконку


2-1135446082
SEN
2005-12-24 20:41
2006.01.15
Значение текстового поля в Word


5-1121170155
mmms
2005-07-12 16:09
2006.01.15
Как переопределить свойство


3-1129099929
S@shka
2005-10-12 10:52
2006.01.15
Репликация FB + Delphi.... Варианты исполнения


2-1135699386
Tarbls
2005-12-27 19:03
2006.01.15
что за программа SKY о которой говорят на этом форуме