把流中的字符串转换为 UTF 格式 - 回复 "lostapple" 的问题
2008-12-26 13:53
603 查看
问题来源: http://www.cnblogs.com/del/archive/2008/12/26/1269606.html#1414232
本例效果图:
代码文件:
窗体文件:
本例效果图:
代码文件:
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 格式 - 回复 "lostapple" 的问题
- 字符串转换到指定格式的宽字符 - 回复 "厨师" 的问题
- 将字符串的编码格式转换为utf-8
- 字符串编码格式相互转换Unicode --UTF-8 -- GBK
- LoadRunner 如何将英文的字符串转换成UTF-8格式的字符串?
- 关于一个时间的转换问题。由一个RFC3339时间格式的字符串转为本地时间
- 将数字字符串转换为 日期格式问题解答
- 关于动态数组、静态数组转换为字符串的一些问题 - 给 "厨师" 的回复
- js前台传递json字符串数组到后台有后台转换成list集合或其他格式的问题解决
- html标签实体与字符串格式的标签 转换问题
- 解决中文字符乱码问题,如何将gbk格式转换utf-8格式
- 用 TStringList 模拟 "将字符串转换为变量的功能" - 回复 "flq_00000" 和 "外来天客" 的问题
- 金额字符串转换成Decimal格式的怪问题引发的思考
- Android 读取txt文件并以utf-8格式转换成字符串
- IOS将字符串转换为日期时间格式的一些问题
- 使用 BinToHex() 把 TBytes 转换为十六进制字符串 - 回复 "梧桐栖凤" 的问题
- 将数字字符串转换为 日期格式问题解答
- Android 读取txt文件并以utf-8格式转换成字符串
- 歌词字幕转换制作专家转换LRC-UTF,出错问题,乱码问题,格式问题