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

推荐阅读

电视剧《七月与安生》中苏家明喜欢的到底是七月还是安生？

有没有什么可以让牙齿迅速变白的方法？

不锈钢管生产厂家有哪些不锈钢管材

藏獒过剩流浪藏獒会破坏高原生态雪豹会不会被捕食

2022-2023独生子女退休补贴新规独生子女父母一次性补贴如何领取？

mongodb数据导入同步mongodb到内存

linux系统更新内核,亲身体验升级Linux系统内核完全过程

9种|9种 MySQL数据库优化的技巧

阿拉伯王子成名的机会或重现

爱普生供墨清零软件

药丸形|曝料：iPhone 14 Pro概念渲染图！“感叹号”挖孔屏

excel排序让后面的数据跟着动教程

山东省综合素质评价登录入口手机版山东省综合素质评价登录入口

毛衣巧处理再穿不会痒毛衣的日常护理法则

献给电脑族的呵护肌肤的7大方法

德国即热式电热水器,你知道什么原因吗

华润燃气热水器使用方法,不清楚的真可以看看

月饼的馅料有哪些传统月饼的馅料有哪些

上等人马龙等人如何处罚，下等人

运动塑身减肥的方法有哪些视频运动塑身减肥的方法有哪些

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

推荐阅读

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