如何取得一个字符的ascii码(10分)

T

tyochen

Unregistered / Unconfirmed
GUEST, unregistred user!
如何取得一个字符的ascii码?最好是integer类型的;
 
同意楼上的。
 
有一天忽然找不到ECS的ascii了,所以
procedure TForm1.FormKeyPress(Sender: TObject
var Key: Char);
begin
label1.Caption:=inttostr(ord(key));
end;
 
多人接受答案了。
 
顶部