[LilLoco]

но почему в начальном варианте не работает? »

Код начального варианта?

Может вы попросту забыли поставить после end ";"?

Код:

then Exit;
end;

[novashdima]

Код начального варианта? »

Это и есть начальный вариант, потом я добавил функцию в указанное место.

Может вы попросту забыли поставить после end ";"? »

Перед else точка с запятой не ставится

[LilLoco]

Перед else точка с запятой не ставится »

В начальном варианте же у вас нет вроде бы else.

Вставил ветку else и туда написал IniFile.IniOptions.SaveToFile(SaveDialog.FileName); и все работает »

В коде то же.

потом я добавил функцию в указанное место »

Присутствует в коде, значит не начальный вариант.

Либо вы вставили здесь

Код: then Exit; end »

Выражайтесь понятнее, пожалуйста.

[novashdima]

эх.... ок, вот начальная процедура

Код:

procedure TMainForm.SaveButtonClick(Sender: TObject);
begin
  if SaveDialog.Execute then
  if FileExists(SaveDialog.FileName) then
    begin
      if (MessageDlg('Файл уже существует.' + #13#10 + 'Переписать?', mtConfirmation, mbOkCancel, 0) <> mrOk)
      then Exit;
    end
    else
      IniFile.IniOptions.SaveToFile(SaveDialog.FileName);
end;

Вот добавил строку:

Код:

procedure TMainForm.SaveButtonClick(Sender: TObject);
begin
  if SaveDialog.Execute then
  if FileExists(SaveDialog.FileName) then
    begin
      if (MessageDlg('Файл уже существует.' + #13#10 + 'Переписать?', mtConfirmation, mbOkCancel, 0) <> mrOk)
      then Exit
      else IniFile.IniOptions.SaveToFile(SaveDialog.FileName);
    end
    else
      IniFile.IniOptions.SaveToFile(SaveDialog.FileName);
end;

[torauma]

ведь в любом случае последняя строка должна выполняться в любом случае... »

Это вот эта чтоли:

else IniFile.IniOptions.SaveToFile(SaveDialog.FileName); »

С чего это она в любом случае должна выполняться? Только если файл не существует.
Вот во втором варианте вы вписали сохранение файла и в ту ветку, которая выполняется при существовании файла, поэтому у вас и начало работать.

[novashdima]

С чего это она в любом случае должна выполнятся? Только если файл не существует. »

Хм... действительно провтыкал...

[iMirRor]

Если вы используете "Exit", то зачем столько "else", не проще было бы так:

Код:

procedure TMainForm.SaveButtonClick(Sender: TObject);  
begin    
   if SaveDialog.Execute then    
   begin
     if FileExists(SaveDialog.FileName) then
       if (MessageDlg('Файл уже существует.' + #13#10 + 'Переписать?', mtConfirmation, mbOkCancel, 0) <> mrOk) then Exit;
     IniFile.IniOptions.SaveToFile(SaveDialog.FileName);
   end
end;

[novashdima]

Если вы используете "Exit", то зачем столько "else", не проще было бы так: »

Да, спасибо, именно так я и хотел написать, но написал чуть по-другому, а потом что-то башка не варила, так и не сообразил.

[opel431]

Ну да...., не проще ли, блок if not (FileExists(..))..., а в нем if SaveDialog.Execute...