怎样将文件以特定的形式保存起来

Question

我写的一个程序，有一个Memo控件显示着事件日志，现在我想增加一个按钮来执行保存功能。
我设了一个TsaveDialog控件，命名为SaveDialog1，程序为
var
filename: string;
begin
     if SaveDialog1.Execute then
     MemoLog.Lines.SaveToFile(SaveDialog1.FileName);end;
结果可以保存文件了，可是保存时什么格式都行，现在我想让它以规定的格式'.log'来保存，该怎样做？

Answer 1

设置你的SaveDialog1.filter就行了这样是可以的
MemoLog.Lines.SaveToFile('c:\tmp.log'); 

Answer 2

整个程序是怎样的，是将MemoLog.Lines.SaveToFile('c:\tmp.log'); 取代MemoLog.Lines.SaveToFile(SaveDialog1.FileName); 吗，这样不行啊，我试过了

Answer 3

var 
filename: string; 
begin 
    SaveDialog1.filter:='my log|*.log';
    if SaveDialog1.Execute then 
    MemoLog.Lines.SaveToFile(SaveDialog1.FileName); 
end;