查看所有 Unicode 字符 [Delphi 2009]

本例效果图:

---

代码文件:

---

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