не сохраняются расширения

← →
snowkam (2009-10-23 09:05) [0]

Вот такой пример
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);

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

← →
macrodenms (2009-10-23 09:16) [1]

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

← →
sniknik © (2009-10-23 09:35) [2]

SaveDialog1.FileName:= "DATE_STATE.txt";

← →
Tinky (2009-10-23 10:08) [3]

saveDialog.DefaultExt := ".txt"

← →
Tinky (2009-10-23 10:09) [4]

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

не сохраняются расширения Найти похожие ветки