delphi如何判断输入的是不是为中文

Posted 2023-04-08

delphi如何判断输入的是否为中文
用户在Edit控件中输入一段文字，点击确定，判断输入的文字是否都是汉字，请给个例子。

参考技术A function IsIncludeChinese(string s): boolean;
begin
for i = 1 to length(s) do
begin
if (s[i]>128) then
begin
result := true;
break;
end
end
result := false;
end

如何判断delphi文本框输入的是数字

如何判断delphi文本框输入的是数字,或者说怎么能让文本框只允许输入数字

try
  StrToInt('abc');
  ShowMessage('正常');
except
  ShowMessage('异常，不是数字');
  Exit;
end;

参考技术A procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
a:integer;
begin
if not (key in ['0'..'9',#8]) then
begin
a:=Application.MessageBox('请输入数字','提示信息',MB_ok);
if a=6 then
begin
end
else
begin
end;
key:=#0;
end
else
begin
end;
end;