Question

delphi edit控件输入的判断

edit中可输入姓名或学号，查询sql时如何判断输入的是姓名还是学号
if edt_teacher.Text =''then
bh:=''

bh:='and id='+quotedstr(edt_teacher.Text) \\edt_teacher为edit
bh:='and name='+quotedstr(edt_teacher.Text );
用for i:=0 to length(edit.text)-1 do
if edit.text[i] in [0..9] then//循环检查输入字符串判断是否为数字如果为
begin
//code 查询代码
end
else
begin
//code 查询代码
end；出现下面的错误怎么回事啊？？？

[Error] Unit1.pas(258): Incompatible types: 'Char' and 'Integer'

Answer 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;

Answer 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；

Answer 3

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