Тема: Двойное расширение файла при использовании SaveDialog
Показать сообщение отдельно
  #2  
Старый 01.04.2011, 14:29
Assistant Assistant вне форума
Продвинутый
  
Регистрация: 20.02.2011
Адрес: там где правят идиоты
Сообщения: 603
Версия Delphi: 7
Репутация: выкл
По умолчанию
Код:
procedure TForm2.Button8Click(Sender: TObject);
begin
  if not SaveDialog1.Execute then
    Exit
  else
    Memo1.Lines.SaveToFile(ChangeFileExt(SaveDialog1.FileName,'')+'.txt');
end;
__________________
взялся из неоткуда, ничего не прошу, помогаю просто так
ICQ: 593977748 - стучать в случае КРАЙНЕЙ необходимости, ну, или если вы со Ставрополя
Ответить с цитированием