Delphi 2009 查看所有 Unicode 字符

本文整理自网络，侵删。

 
代码文件: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] := ｃｈａｒ(w + i);end;
end. 

相关阅读 >>

Delphi 网络时间校对

Delphi 获取指定当前目录下指定文件扩展名所有文件

Delphi 把文件锁定到任务栏

Delphi “invalid floating point operation.”错误的解决方法

Delphi 5-7 桥接让Delphi xe2 datasnap中间层支持Delphi低版本开发客户端

Delphi 搜索指定目录下的文件

Delphi 进程保护

Delphi xe8 用httpclient下载文件

Delphi 获取当前目录下的.txt文本不要带后缀扩展名

Delphi 覆盖模式处理透明

更多相关阅读请进入《Delphi》频道 >>