把流中的字符串转换为 UTF 格式 - 回复 "lostapple" 的问题
来源:互联网 发布:拍短片的软件 编辑:程序博客网 时间:2024/05/16 10:17
--------------------------------------------------------------------------------
代码文件:
--------------------------------------------------------------------------------
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
- 把流中的字符串转换为 UTF 格式 - 回复 "lostapple" 的问题
- 将字符串的编码格式转换为utf-8
- 【笔记】如何把GBK的文本格式转换为UTF-8格式
- 把IP字符串转换为IPv4标准格式
- 怎么把字符串的时间转换为想要的时间格式
- encode_json 转换给定的perl数据结构为一个UTF-8编码的 2进制字符串 decode_json把UTF-8字节转换成字符
- 把含一字节变量的16进制格式数据转换为字符串显示
- 把 字符串转换为整数的算法
- 把字符串转换为对应的整数
- 把字符串转成UTF-8格式
- 如何把某月某日,转换为Mysql中的Date格式
- 把ppt格式的文档转换为pdf格式
- Android 把YUV420P格式的数据转换为RGB565格式
- 编码格式要统一,Asp.net把UTF-8编码转换为GB2312编码
- java中把数字转换为货币格式的方法及保留数位的问题
- Objective-C如何把UTF-8字符串转换为十六进制数
- php 把数组中的内容转换为字符串
- 批量转换文件为utf-8格式
- DM8168-EZSDK
- Broadcast Receiver
- Spring中Aspectj和Schema-based AOP混用引起的错误
- Page和window的区别
- phpDoc使用入门
- 把流中的字符串转换为 UTF 格式 - 回复 "lostapple" 的问题
- java正则累积
- servlet应用2
- 第二、UIScrollView的使用大全
- 《Java中的鼠标和键盘事件 》
- scanf()函数的说明
- android消息机制
- servletConfig和servletContext
- Window.ShowModalDialog使用手册