在程式保存文件时怎样，把文件的扩展名自动存成文本格式

Question

在程式保存文件时怎样，把文件的扩展名自动存成文本格式

Answer 1

设置SaveDialog的Filter为类似于“文本文件(.txt)|*.txt”的字符串

Answer 2

如果你不想用户手动添加别的扩展名，那在保存时在SaveDialog1.FileName后面自动加上你要的扩展名就ok了

Answer 3

这个我做过了，但是用户在输入保存名时就会覆盖掉(保存名.txt)，我想要的是用户只要输入保存名，系统自动帮它补上扩展名

Answer 4

unit StrUtils;
begin
  filename:=savedialog1.FileName;
  if Form_select.savedialog1.Execute then
  begin
    if not AnsiEndsStr('.txt',filename) then
      filename:=filename+'.txt';
  end;
end;

Answer 5

unit StrUtils;//...
begin
  filename:=savedialog1.FileName;
  if savedialog1.Execute then
  begin
    if not AnsiEndsStr('.txt',filename) then
      filename:=filename+'.txt';
  end;
end;

Answer 6

不能直接写成以下的形式么？Savedialog.filename := 'test';
Sacedialog.Filter := '*.txt';

Answer 7

设置DefaultExt为你想要的扩展名。