вопрос по FileExists

[kate158]

Помогите, пожалуйста,справиться с такой задачей.
Есть эксель файл,с некими числами.Из экселя на форму экспортирую числа.Далее сохраняю их в текстовый файл.Есть проверка:если файл существует,появляется сообщение-'Файл существует!Заменить' и две кнопки-"да" и "нет".При выборе "да"-файл заменяется новым (код ниже).
if FileExists(f)then
begin
if MessageDlg('Файл существует!Заменить??', mtConfirmation, [mbYes,mbNo],0)=mrYES then
begin
DeleteFile(f);
s.SaveToFile(f);
end;
end;
Как можно записать,что,при выборе кнопки "нет"-в файле,сохраненном раннее,числа не будут заменяться?

[Longedok]

Если я вас правильно понял, вам нужно, обрабатывать не только нажатие на кнопку "Yes" но и на кнопку "No". Это можно сделать следующим образом:

  var
     res: integer;
  begin
    res := MessageDlg('text', mtConfirmation, [mbYes,mbNo], 0);
    if res = mrYes then
    begin
      ... //код выполняющийся по нажатию кнопки Yes
    end
    else if res = mrNo then
    begin
      ... //код выполняющийся по нажатию кнопки No
    end;

end;

[kate158]

Это понятно,что и для "нет" должен быть обработчик.не могу догнать что будет в месте
...//код выполняющийся по нажатию кнопки No
...

[Stilet]

Ну я бы добавлял во втором случае в конец файла через
AssignFile-Append-Write (в цикле)-CloseFile

[Longedok]

Если файл существует, то нужно записать числа в другой файл? Если так, то нужно положить (не смог подобрать другого слова) на форму компонент TSaveDialog из закладки Dialogs, и написать следующий код:

var
  res: integer;
  path: string;
begin
  res := MessageDlg('text', mtConfirmation, [mbYes,mbNo], 0);
  if res = mrYes then
  begin
    ... //код выполняющийся по нажатию кнопки Yes
  end
  else if res = mrNo then
  begin
    if SaveDialog1.Execute = true then
      path := SaveDialog1.FileName;
    S.SaveToFile( path );
  end;
end;

path - это имя файла выбранного в диалоге сохранения файлов.
S - это ваш компонент, которым вы сохраняете файл

[kate158]

В общем,вот мой рабочий код.

 if not FileExists(f)then
  st.SaveToFile(f)
 else
  begin
  res := MessageDlg('Файл существует!Заменить?', mtConfirmation, [mbYes,mbNo],0);
  if res = mrYes then
  begin
   DeleteFile(f);
   st.SaveToFile(f);
  end
 end;

Если файл существует,возникает сообщение "Файл существует,заменить?".Выбираю-да-числа записываются новые.Нет-числа,ранее записанные в файле не изменяются.Просто раньше,когда выбиралась кнопка-нет-шла перезапись старых чисел.Сейчас все нормально.Спасибо за помощь.)