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＂的问题

推荐阅读

有哪些电影比《山村老尸》还要恐怖？

中恒务报表分析助手

什么人不能吃辣椒

夏新m3,夏新M3217AW能开机绿灯不亮

直播伴侣皮套，直播伴侣好用吗

愿我们的梦想都能实现

描写雪后美景的成语

怎么改正孩子浮躁的毛病孩子浮躁家长怎么引导

威视达康T7892WIP怎么样

抖音上传失败了如何解决？抖音上传服务器出错了怎么回事

碎碗属于什么垃圾

成都新城区在哪里新城区地税务局在哪里，老城区和新城区哪个好

Android布局优化思考

脚长273mm匡威帆布鞋穿多大

将xml文件对象转化为Map对象

晨间日记（18）

电商做什么类目比较好做电商什么类目的做好不好，做电商什么类目的做好不好赚钱

茶叶水里能加冰糖吗茶叶水里加冰糖可以吗

网络电视怎样调出频道

web开发的硬件需求分析,视频剪辑硬件需求分析

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

推荐阅读

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