导出简单问题

Question

procedure TForm1.Button3Click(Sender: TObject);
begin
 SaveDialog1.Filter:= '.txt';
if SaveDialog1.Execute then
Memo2.Lines.SaveToFile(SaveDialog1.FileName);怎么导出的数据不是TXT文档资料呢?
我想加个消息框,导出后提示导出成功!谢谢

Answer 1

if SaveDialog1.Execute then
  Memo2.Lines.SaveToFile(SaveDialog1.FileName + '.txt');

Answer 2

SaveDialog1.Filter:= '文本文件|.txt'; 
if SaveDialog1.Execute then 
Memo2.Lines.SaveToFile(SaveDialog1.FileName); 

Answer 3

if SaveDialog1.Execute then 
  begin
    Memo2.Lines.SaveToFile(SaveDialog1.FileName + '.txt');
    ShowMessage('数据导出成功');
  end;