如何在TDBEdit中检测阿拉伯语输入

Question

我有TDBEdit我是如何强迫用户只用阿拉伯语写的

如何在Delphi中检测（TDBEdit）中的阿拉伯语输入？

Answer 1

使用汤姆提到的文章，你可以实现你想要的目标：

文章：Arabic blocks in Unicode。

检查以下输入

procedure TForm8.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  Caption := 'arabic';
  case integer(key) of
    1536..1791,1872..1919,2208..2303,-1200..-513,-400..-257,8,32,48..57:
       begin
       end;
  else
    // intervene here by setting key = #0
    Caption :=key+ ': is not an arabic character';
end; 

上面的数字是文章中HEX值的十进制表示。