查看所有 Unicode 字符 [Delphi 2009]
2008-08-13 01:13
239 查看
本例效果图:
代码文件:
窗体文件:
代码文件:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids; type TForm1 = class(TForm) ListBox1: TListBox; StringGrid1: TStringGrid; procedure FormCreate(Sender: TObject); procedure ListBox1Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); var i: Integer; begin ListBox1.Align := alLeft; i := 0; while i < 65535 do begin ListBox1.Items.Add(Format('#%d - #%d', [i, i+255])); Inc(i, 255); end; with StringGrid1 do begin Align := alClient; DefaultColWidth := 24; DefaultRowHeight := 24; RowCount := 16; ColCount := 16; FixedCols := 0; FixedRows := 0; Font.Size := 13; Self.ClientWidth := ListBox1.Width + (DefaultColWidth + 1) * 16 + 4; Self.ClientHeight := (DefaultRowHeight + 1) * 16 + 4; end; end; procedure TForm1.ListBox1Click(Sender: TObject); var w,i: Word; begin w := ListBox1.ItemIndex * 255; for i := 0 to 255 do StringGrid1.Cells[i div 16, i mod 16] := Char(w + i); end; end.
窗体文件:
object Form1: TForm1 Left = 0 Top = 0 Caption = 'Form1' ClientHeight = 328 ClientWidth = 497 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 StringGrid1: TStringGrid Left = 160 Top = 8 Width = 320 Height = 120 TabOrder = 0 end object ListBox1: TListBox Left = 8 Top = 8 Width = 137 Height = 97 ItemHeight = 13 TabOrder = 1 OnClick = ListBox1Click end end
相关文章推荐
- 查看所有 Unicode 字符 [Delphi 2009]
- Delphi操作Unicode字符
- Delphi 2009 新增单元 Character[1]: ToUpper、ToLower - 字符与字符串的大小写转换
- Delphi2007代码在Delphi2009使用时候碰到的Unicode问题
- 查看中文字符的unicode编码
- Delphi 2009 新增单元 Character[1]: ToUpper、ToLower - 字符与字符串的大小写转换
- Delphi 转换 UTF8 字符为 Unicode 字符
- Unicode字符集就是为了解决字符集这种不兼容的问题而产生的,它所有的字符都用两个字节表示,即英文字符也是用两个字节表示
- Centos 查看路径下所有文件中是否包含指定字符
- 别人写的UNICODE的文本,汉字字符都可以用记事本查看,注意记事本识别编码的方式为BOM
- Unicode字符集就是为了解决字符集这种不兼容的问题而产生的,它所有的字符都用两个字节表示,即英文字符也是用两个字节表示
- Unicode字符集就是为了解决字符集这种不兼容的问题而产生的,它所有的字符都用两个字节表示,即英文字符也是用两个字节表示
- Javascript输出所有Unicode字符
- Unicode字符集就是为了解决字符集这种不兼容的问题而产生的,它所有的字符都用两个字节表示,即英文字符也是用两个字节表示
- 动画演示 Delphi 2007 IDE 功能[6] - 快速查看 Delphi 所有的核心数据类型
- (Delphi中处理字符串)截取中文字符和英文字符,去除所有数字
- UniCode问题的探讨,终于解决了编码的问题。--Delphi
- linux 查看80端口占用情况-所有端口
- smarty_smarty中条件语句if的使用和文字处理interal忽略其内部所有字符
- 查看目录下的所有文件