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

推荐阅读

揭秘太监阉割全过程太监净身过程

弥猴桃怎么催熟

中国四大盐场分布图中国盐场

深圳求水山庄好玩

奇怪近义词词语奇怪近义词

500大卡需要走多少步

威能壁挂炉f20排除方法是什么故障,这个就要看的功率了

新生儿吃多少奶粉新生儿奶粉喝多少毫升

g27方向盘g27方向盘安装

火影水门大战九尾是第几集

asp.net mvc验证

软考时间几个小时，软考答案一般要多久才出

描写天空的诗句有哪些

马桶里堵了硬物取不出

手机怎么连接腾达无线网卡，腾达无线网卡无法连接到这个网络

阴香根的功效与作用

生产工艺记录做错分析报告

巴黎世家鸭舌帽洗了掉色严重正常吗巴黎世家鸭舌帽洗了掉色严重

winform可行性分析

新手如何养好锦鲤，新手养锦鲤入门基础教程

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

推荐阅读

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