OpenDialog и SaveDialog

[demiancz]

Здравствуйте. Имеется такой код:

if SaveDialog1.Execute then
FName := SaveDialog1.FileName;
if not SaveDialog1.Execute then Exit;

При нажатии на кнопку появляется диалоговое окно которое предлагает сохранить файл. Но чтобы сохранить файл нужно нажать на кнопку "Сохранить" 2 раза. Аналогично и с "Отмена". Что бы отменить сохранение необходимо два раза нажать на кнопку "Отмена". Такая же проблема и с OpenDialog:

If OpenDialog1.Execute then
FName := OpenDialog1.FileName;
if not OpenDialog1.Execute then Exit;

Если не использовать

if not OpenDialog1.Execute then Exit;

то работает нормально. Но при нажатии на кнопку "Отмена" выскакивает ошибка так как естественно не выбран файл и прога не может дальше работать.
Помогите кто может!

[niki2012]

Ваш код вызывает функцию показа диалога 2 раза, поэтому нужно использовать else:

  If OpenDialog1.Execute then
  FName := OpenDialog1.FileName
  else Exit;