冥界3大法王 发表于 2024-3-2 17:07

请老师根据帮助中的函数参数给我弄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:}

冥界3大法王 发表于 2024-3-2 17:19

是不是就这个思路?
它说函数中有哪几个函数类型
我就先他狼定义的几个。
因为很多时候,直接写过不去。。
但我还不太明白的是使用场合 和 前面的调用对象找谁去?

DEATHTOUCH 发表于 2024-3-2 17:49

本帖最后由 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.

冥界3大法王 发表于 2024-3-2 18:28

@DEATHTOUCH
41主题;2137回帖这大部分都给我解答问题了。{:301_975:}

DEATHTOUCH 发表于 2024-3-2 18:36

冥界3大法王 发表于 2024-3-2 18:28
@DEATHTOUCH
41主题;2137回帖这大部分都给我解答问题了。

大部分倒不至于,不过得有好几百条了吧{:301_992:}

mayihei 发表于 2024-3-2 20:24

膜拜大神 我反正是没看懂

only998 发表于 2024-3-3 09:17

转换(原编码,目标编码, 要转换的内容:数组)
转换(原编码,目标编码, 要转换的内容:TB字节集)
转换(原编码,目标编码, 要转换的内容:数组, 开始位置,要转换的长度)
转换(原编码,目标编码, 要转换的内容:TB字节集, 开始位置,要转换的长度)

delphi没用过,具体的类型不太清楚。

chichengtie 发表于 2024-3-4 10:04

{:1_908:}具体的类型不太清楚。
页: [1]
查看完整版本: 请老师根据帮助中的函数参数给我弄4个例子: