unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var B: Byte; //B是8位的 W: Word; //W是16位的 begin W := $1234; //将16进制常数$1234赋值给W B := W; //B得到的值是W的低8位,即16进制的$34,也即10进制的52 ShowMessage(IntToStr(B)); //显示B的结果值52 end; procedure TForm1.Button2Click(Sender: TObject); var S: AnsiString; WS: WideString; begin S := '胡之恨'; WS := S; ShowMessage(S[1]); //显示的是乱码,因为S[1]取出的是‘胡’的一半 ShowMessage(WS[1]); //显示'胡' end; procedure TForm1.Button3Click(Sender: TObject); var B: Byte; begin B:=255; {$R+}//允许越过范围 B := B + 1; ShowMessage(IntToStr(B)); end; end.