用这段程序控制EDIT组件中不能输入非法字符，但#8、#48、#57、#0是什么意思？
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var b:boolean;
begin
b:=(key<#8)or(key>#8)and(key<#48)or(key>#57);
if b then key:=#0;
end
分数快用完了，得了分再追加。
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var b:boolean;
begin
b:=(key<#8)or(key>#8)and(key<#48)or(key>#57);
if b then key:=#0;
end
分数快用完了，得了分再追加。
也可以這樣寫:key=vk_return
所得出的結果是一樣的
#48 ASCII 0
#57 ASCII 9
这样不是更好嘛procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Not (Key In [#8, #48 .. #57]) then Key := #0;
end;
另外,F1到F9有对应的ascii碼吗？谢谢。
那段代码的意思就是该Edit只能输入数字0..9,退格
vk_LButton = $01;
vk_RButton = $02;vk_Cancel = $03;vk_MButton = $04; { NOT contiguous with L & RBUTTON }vk_Back = $08;vk_Tab = $09;vk_Clear = $0C;vk_Return = $0D;vk_Shift = $10;vk_Control = $11;vk_Menu = $12;vk_Pause = $13;vk_Capital = $14;vk_Escape = $1B;vk_Space = $20;vk_Prior = $21;vk_Next = $22;vk_End = $23;vk_Home = $24;vk_Left = $25;vk_Up = $26;vk_Right = $27;vk_Down = $28;vk_Select = $29;vk_Print = $2A;vk_Execute = $2B;vk_SnapShot = $2C;vk_Copy = $2C not used by keyboards }vk_Insert = $2D;vk_Delete = $2E;vk_Help = $2F;vk_A thru vk_Z are the same as their ASCII equivalents: 'A' thru 'Z' }vk_0 thru vk_9 are the same as their ASCII equivalents: '0' thru '9' }vk_NumPad0 = $60;vk_NumPad1 = $61;vk_NumPad2 = $62;vk_NumPad3 = $63;vk_NumPad4 = $64;vk_NumPad5 = $65;vk_NumPad6 = $66;vk_NumPad7 = $67;vk_NumPad8 = $68;vk_NumPad9 = $69;vk_Multiply = $6A;vk_Add = $6B;vk_Separator = $6C;vk_Subtract = $6D;vk_Decimal = $6E;vk_Divide = $6F;vk_F1 = $70;vk_F2 = $71;vk_F3 = $72;vk_F4 = $73;vk_F5 = $74;vk_F6 = $75;vk_F7 = $76;vk_F8 = $77;vk_F9 = $78;vk_F10 = $79;vk_F11 = $7A;vk_F12 = $7B;vk_F13 = $7C;vk_F14 = $7D;vk_F15 = $7E;vk_F16 = $7F;vk_F17 = $80;vk_F18 = $81;vk_F19 = $82;vk_F20 = $83;vk_F21 = $84;vk_F22 = $85;vk_F23 = $86;vk_F24 = $87;vk_NumLock = $90;vk_Scroll = $91;