Delphi SaveTextFileDialog 用法

本文整理自网络，侵删。

 
var D: TSaveTextFileDialog;
begin
    D := TSaveTextFileDialog.Create(nil);
    try
      D.Title := 'Exportar to File';
      D.DefaultExt := 'txt';
      D.Filter := 'Text File|*.txt|All Files|*';

      if D.Execute then
        M.Lines.SaveToFile(D.FileName, D.Encodings.Objects[D.EncodingIndex] as TEncoding);

    finally
      D.Free;
    end;
 

相关阅读 >>

Delphi使用zlib压缩和解压文件

Delphi system.messaging.pas例子

Delphi的format使用总结

Delphi多线程程序示例（最简单的多线程）

Delphi 怎么不注册 dll 就调用 com

Delphi console程序中一种定时方法

Delphi之截取整个窗体图片

Delphi 清空文件夹

Delphi adoquery查询用户是否存在

Delphi 屏蔽汉字，年月日，时间，银行卡正则表达式

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi SaveTextFileDialog 用法