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》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...