请老师根据帮助中的函数参数给我弄4个例子:
本帖最后由 冥界3大法王 于 2024-3-2 17:09 编辑为表诚意,我先表演6个:
Memo1.Lines.SaveToFile('d:\test.txt', TEncoding.ANSI);
Memo1.Lines.SaveToFile('d:\test.txt', TEncoding.ASCII);
Memo1.Lines.SaveToFile('d:\test.txt', TEncoding.BigEndianUnicode);//Big-endian UTF-16
Memo1.Lines.SaveToFile('d:\test.txt', TEncoding.Unicode); //UTF-16, Unicode
Memo1.Lines.SaveToFile('d:\test.txt', TEncoding.UTF7);
Memo1.Lines.SaveToFile('d:\test.txt', TEncoding.UTF8);
请老师给我也表演4个套函数编码转换的。{:301_974:}{:301_974:}{:301_974:} 是不是就这个思路?
它说函数中有哪几个函数类型
我就先他狼定义的几个。
因为很多时候,直接写过不去。。
但我还不太明白的是使用场合 和 前面的调用对象找谁去? 本帖最后由 DEATHTOUCH 于 2024-3-2 17:55 编辑
拿去玩玩吧,把UTF8的字节集转成UTF16的字节集。
program Project1;
uses
sysutils;
var
us:UnicodeString;
b,ub:TBytes;
begin
b:=[$E6, $B3, $95, $E7, $8E, $8B, $E4, $BD, $A0, $E5, $A5, $BD, $EF, $BC, $81, 0];
ub:=TEncoding.Convert(TEncoding.UTF8,TEncoding.Unicode,b);
us:=TEncoding.Unicode.GetString(ub);
Writeln(us);
Readln;
end.
@DEATHTOUCH
41主题;2137回帖这大部分都给我解答问题了。{:301_975:} 冥界3大法王 发表于 2024-3-2 18:28
@DEATHTOUCH
41主题;2137回帖这大部分都给我解答问题了。
大部分倒不至于,不过得有好几百条了吧{:301_992:} 膜拜大神 我反正是没看懂 转换(原编码,目标编码, 要转换的内容:数组)
转换(原编码,目标编码, 要转换的内容:TB字节集)
转换(原编码,目标编码, 要转换的内容:数组, 开始位置,要转换的长度)
转换(原编码,目标编码, 要转换的内容:TB字节集, 开始位置,要转换的长度)
delphi没用过,具体的类型不太清楚。 {:1_908:}具体的类型不太清楚。
页:
[1]