Question

Delphi 保存TXT时如何设置编码？

Answer 1

你要设置为什么编码？

追问

UTF-8 等其他编码

追答

procedure TForm1.Button2Click(Sender: TObject);
begin
SaveUTF('c:\05.txt',Edit1.Text);
end;

procedure TForm1.SaveUTF(AFile, AText: String; b: Boolean);
var
ms: TMemoryStream;
hs: String;
begin
if AText = '' then Exit;
ms := TMemoryStream.Create;
if b then begin
hs := #$EF#$BB#$BF;
ms.Write(hs[1],3);
end;
AText := AnsiToUtf8(AText);
ms.Write(AText[1],Length(AText));
ms.Position:=0;
ms.SaveToFile(AFile);
ms.Free;
end;

procedure TForm1.SaveUnicode(AFile, AText: String; b: Boolean);
var
ms: TMemoryStream;
hs: String;
ws: WideString;
begin
if AText =' ' then exit;
ms := TMemoryStream.Create;
if b then begin
hs := #$FF#$FE;
ms.Write(hs[1],2);
end;
ws := WideString(AText);
ms.Write(ws[1],Length(ws) * 2);
ms.Position := 0;
ms.SaveToFile(AFile);
ms.Free;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
SaveUnicode('c:\06.txt',Edit1.Text);
end;

Answer 2

1 1