Delphi中如何全局设置TStringList默认使用ASCII编码？

一、全局修改默认编码方案 #

Delphi中TStringList的LoadFromFile和SaveToFile默认依赖TEncoding.Default编码。针对你的业务场景（无需Unicode/UTF-8支持），有两种全局处理方式：

1. 直接设置全局默认编码（影响范围广）
   在程序启动阶段（比如Application.Initialize之前）执行以下代码，将全局默认编码强制设为ASCII：

TEncoding.Default := TEncoding.ASCII;

注意：此设置会影响所有依赖TEncoding.Default的VCL组件（如TMemo、TEdit）的文本读写操作，确认业务无相关冲突后再使用。

2. 子类化TStringList（安全可控）
   自定义一个强制使用ASCII编码的TStringList子类，再通过IDE批量替换代码中的TStringList引用：

type
  TASCIIStringList = class(TStringList)
  public
    procedure LoadFromFile(const FileName: string); override;
    procedure SaveToFile(const FileName: string); override;
  end;

procedure TASCIIStringList.LoadFromFile(const FileName: string);
begin
  inherited LoadFromFile(FileName, TEncoding.ASCII);
end;

procedure TASCIIStringList.SaveToFile(const FileName: string);
begin
  inherited SaveToFile(FileName, TEncoding.ASCII);
end;

这种方式仅影响替换后的自定义类实例，不会干扰其他组件，适合需要局部编码控制的场景。

二、显式指定ASCII后Notepad++显示UTF-8的原因解释 #

当你调用tmp.SaveToFile('blah.bat', TEncoding.ASCII)时，文件实际是纯ASCII编码（无BOM）。由于ASCII字符集是UTF-8的子集，当文件内容无超出ASCII范围的字符时，Notepad++会自动识别为"UTF-8无BOM"，但这并不改变文件的本质——它仍然是符合ASCII标准的文件，Windows cmd.exe可以正常执行，不会出现（UTF-8 BOM）的错误。

你之前遇到的cmd执行错误，根源是保存时使用了带BOM的UTF-8编码，而显式指定TEncoding.ASCII保存的文件不会包含BOM，完全符合批处理文件的要求。

三、额外注意事项 #

• 绝对避免用TEncoding.UTF8保存批处理文件：TEncoding.UTF8默认会添加UTF-8 BOM，这是导致cmd报错的直接原因。
• 若不想修改现有代码，也可通过Hook技术拦截TStringList的读写方法，但该方式复杂度较高，不推荐新手使用。

内容的提问来源于stack exchange，提问作者Some1Else