吾爱破解 - 52pojie.cn

 找回密码
 注册[Register]

QQ登录

只需一步,快速开始

查看: 666|回复: 7
收起左侧

[已解决] 请老师根据帮助中的函数参数给我弄4个例子:

 关闭 [复制链接]
冥界3大法王 发表于 2024-3-2 17:07
本帖最后由 冥界3大法王 于 2024-3-2 17:09 编辑

image.png

为表诚意,我先表演6个:
[Delphi] 纯文本查看 复制代码
  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个套函数编码转换的。

发帖前要善用论坛搜索功能,那里可能会有你要找的答案或者已经有人发布过相同内容了,请勿重复发帖。

 楼主| 冥界3大法王 发表于 2024-3-2 17:19
是不是就这个思路?
它说函数中有哪几个函数类型
我就先他狼定义的几个。
因为很多时候,直接写过不去。。
但我还不太明白的是使用场合 和 前面的调用对象找谁去?
DEATHTOUCH 发表于 2024-3-2 17:49
本帖最后由 DEATHTOUCH 于 2024-3-2 17:55 编辑

拿去玩玩吧,把UTF8的字节集转成UTF16的字节集。
[Delphi] 纯文本查看 复制代码
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.

免费评分

参与人数 2吾爱币 +3 热心值 +2 收起 理由
爱飞的猫 + 1 + 1 欢迎分析讨论交流,吾爱破解论坛有你更精彩!
冥界3大法王 + 2 + 1 转码后得到“法王你好”

查看全部评分

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

大部分倒不至于,不过得有好几百条了吧
mayihei 发表于 2024-3-2 20:24
膜拜大神 我反正是没看懂
only998 发表于 2024-3-3 09:17
转换(原编码,目标编码, 要转换的内容:数组)
转换(原编码,目标编码, 要转换的内容:TB字节集)
转换(原编码,目标编码, 要转换的内容:数组, 开始位置,要转换的长度)
转换(原编码,目标编码, 要转换的内容:TB字节集, 开始位置,要转换的长度)

delphi没用过,具体的类型不太清楚。
chichengtie 发表于 2024-3-4 10:04
具体的类型不太清楚。
您需要登录后才可以回帖 登录 | 注册[Register]

本版积分规则

返回列表

RSS订阅|小黑屋|处罚记录|联系我们|吾爱破解 - LCG - LSG ( 京ICP备16042023号 | 京公网安备 11010502030087号 )

GMT+8, 2024-12-11 17:24

Powered by Discuz!

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表