Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

не сохраняются расширения [D5, XP]


snowkam ©   (2009-10-23 09:05:00) 

Вот такой пример
saveDialog.Filter := 'Text file|*.txt|Word file|*.doc';
saveDialog.DefaultExt := 'txt';
saveDialog.FilterIndex := 1;
SaveDialog1.FileName:= 'DATE_STATE';
     if SaveDialog1.Execute then
        memo1.Lines.SaveToFile(SaveDialog1.FileName);

Выполняется сохранение файла только без расширение!!!
Как сделать чтобы сохранялось и с расширением??


Tinky   (2009-10-23 10:09:00) [1]

if SaveDialog1.Execute then memo1.Lines.SaveToFile(ChangeFileExt(SaveDialog1.FileName, '.txt'));


Tinky   (2009-10-23 10:08:00) [2]

saveDialog.DefaultExt := '.txt'


sniknik   (2009-10-23 09:35:00) [3]

SaveDialog1.FileName:= 'DATE_STATE.txt';


macrodenms   (2009-10-23 09:16:00) [4]

Дописать вручную.


Наверх

Титульная страница Поиск, карта сайта Написать письмо