生成 GB18030 编码文本文件

原创
2020/12/29 16:37
阅读数 355
var
  sm: tstringstream;
  str: string;
begin
  str := edt1.Text;
  sm := tstringstream.Create(str, TEncoding.GetEncoding('GB18030'));
  sm.SaveToFile('c:\test.txt');
  sm.Free;
end;




// gb18030 文件读取:无需特别处理
var
  str: string;
  sm, sd: TStringStream;
begin
  sm := TStringStream.Create;
  sm.LoadFromFile('c:\test.txt');
  str := sm.DataString;
  Memo2.Lines.Text := str;
  sm.Free;
end;

d2007 以下版本不支持

展开阅读全文
打赏
0
0 收藏
分享
加载中
vga博主
https://www.haomeili.net/Code?TotalCount=23940&code=GB18030&PageIndex=94
这里含有 gb18030 编码表
01/03 13:54
回复
举报
更多评论
打赏
1 评论
0 收藏
0
分享
返回顶部
顶部