Показать сообщение отдельно
  #2  
Старый 17.08.2016, 13:33
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Код:
...
 j:= 0;
...
 If SaveDialog.Execute then 
  Stream.SaveToFile(SaveDialog.FileName);
...
Ответить с цитированием