各位老師與大大
我有一個ID_Edit輸入欄位讓使用者輸入ID
我要如何透過Button1
檢查ID_Edit輸入的資料不是數字和英文字
例如
輸入 ' A12345 ' 顯示Showmessage('OK');
輸入 '456A5b' 顯示Showmessage('OK');
輸入 'A1234<' 顯示Showmessage('Error');
輸入 'b123編號ID' 顯示Showmessage('Error');
也就是說 只能輸入數字和字母其他都不行

請各位老師與大大幫幫忙
萬般感激

編輯記錄

 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin
  // #8 is Backspace
  if not (Key in [#8, '0'..'9']) then begin
    ShowMessage('Invalid key');
    // Discard the key
    Key := #0;
  end;
end;

剩下就是照樣造句了

感謝GrandRURU老師的回覆
我試了老半天
都只能對數字有判斷
因該是我比較笨可否指導一下

  
if not (Key in [#8, '0'..'9']) and not(Key in ['a'..'z']) then begin
Key := #0;
end;

OK了OK了
萬般感激
謝謝

哎，来晚了一步，其实在d2010开始又很多新函数可以判断isnum,isalpha等等，具体可以看帮助。呵呵