Question

delphi savedialog组件

procedure TForm1.N2Click(Sender: TObject);
begin
if savedialog1.Execute then
memo1.Lines.SaveToFile(savedialog1.FileName);
end; 可是保存下的文件仍然没后缀，请问怎么回事啊？

Answer 1

savedialog1.Filter:='文本文件(*.txt)|.txt|文档(*.doc)|.doc|所有文件(*.*)|*.*';
savedialog1.DefaultExt:='.txt';
if savedialog1.Execute then
begin
mmo1.Lines.SaveToFile(savedialog1.FileName);
end;或者：

Answer 2

memo1.Lines.SaveToFile(savedialog1.FileName);

改为

memo1.Lines.SaveToFile( savedialog1.FileName + '.txt' );

即可

Answer 3

应该是已经保存为文本文件了吧,只是你没有设置文件夹查看后缀名选项

Answer 4

是文本文件|（*.txt）