delphi edit控件输入的判断

2025-03-04 22:11:00

推荐回答（3个）

回答1：

呵呵，2楼的想法这样的：

var
IsID:boolean;
n:integer;
begin
IsID:=false;
for n:=1 to length(edit.text) do
begin
if edit.text[n] in ['0'..'9'] then
begin
IsID:=true;
end
else
begin
IsID:=false;
break;
end;
end;
if IsID then
begin
//输入的是学号
end
else
begin
//输入的是姓名
end;
end;

回答2：

for i:=0 to length(edit.text)-1 do
if edit.text[i] in [0..9] then//循环检查输入字符串判断是否为数字如果为
begin
//code 查询代码
end
else
begin
//code 查询代码
end；

回答3：

用两个edit就得了何必这么麻烦呢