stream|把流中的字符串转换为 UTF 格式 - 回复＂lostapple＂的问题 delphi|object|forms|windows|button

文章图片
【stream|把流中的字符串转换为 UTF 格式 - 回复 "lostapple" 的问题】--------------------------------------------------------------------------------

代码文件:
--------------------------------------------------------------------------------

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
stream1,stream2: TStringStream;
b: Byte;
bs: string;
begin
{建立第一个流, 使用默认的双字节编码; 流中的数据是 Memo 中的字符串}
stream1 := TStringStream.Create(Memo1.Text, 54936);
{把第一个流的十六进制编码显示在 Memo 中}
bs := '';
for b in stream1.Bytes do bs := Format(bs + '%2x ', [b]);
Memo1.Lines.Add(bs);
{建立第二个流, 用 UTF8 编码; 还是基于第一个流中的字符串}
stream2 := TStringStream.Create(stream1.DataString, TEncoding.UTF8);
{把第二个流的十六进制编码显示在 Memo 中}
bs := '';
for b in stream2.Bytes do bs := Format(bs + '%2x ', [b]);
Memo1.Lines.Add(bs);
stream1.Free;
stream2.Free;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Align := alTop;
Memo1.ScrollBars := ssBoth;
Memo1.Text := '万一的 Delphi 博客';
end;
end.
--------------------------------------------------------------------------------
窗体文件:
--------------------------------------------------------------------------------

object Form1: TForm1
Left = 0
Top = 0
Caption = 'Form1'
ClientHeight = 146
ClientWidth = 406
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Button1: TButton
Left = 323
Top = 113
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 0
OnClick = Button1Click
end
object Memo1: TMemo
Left = 8
Top = 8
Width = 313
Height = 105
Lines.Strings = (
'Memo1')
TabOrder = 1
end
end

stream|把流中的字符串转换为 UTF 格式 - 回复＂lostapple＂的问题

推荐阅读

如何使用JavaScript/jQuery创建自动调整textarea的大小（）

你马上能想到的日本女星是谁？

CC气垫在护肤品什么时候用

老年夫妻每个月都要互相检查皮肤吗？

光电子股票000050深天马，股票000开头是什么板块

ug按某一距离创建基准平面的方法

Machine|scikit-learn-分类模型评价标准

怎么画灯笼好看又简单

科二右倒库最好记的方法

遥感主成分分析应用,主成分分析在经济问题中的应用

wps怎么一次性查找多个

凤求凰夫妇返场,价值2676点券,值不值得入手？

四季养生食谱煲汤大全江浙地区四季养生食谱

冬枣|关于“吃”的8个真相，据说只有5％的吃货能全部答对！

请问什么人不能喝樱桃酒

缴款通知书号码怎么查缴款账号名称哪里修改，账户名称与缴款单位名称不符

左心房右心室是什么意思

如何区分光电鼠标和激光鼠标怎么区分光电鼠标和激光鼠标

Redis需要安装吗 redis需要make

Redis如何实现持久化?

stream|把流中的字符串转换为 UTF 格式 - 回复 ＂lostapple＂ 的问题

推荐阅读

stream|把流中的字符串转换为 UTF 格式 - 回复＂lostapple＂的问题