delphi if判断语句有点问题

var
a:string;
begin
combobox2.ItemIndex:=0;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select top 1 Usrsup from denglu');
adoquery1.Open;
combobox1.Items.Add(Adoquery1.FieldValues['Usrsup']);
combobox1.ItemIndex:=0;
a:=combobox1.Text;
if a='超级用户' then
begin
combobox2.Enabled:=false;
end;

为什么做不了判断???

4个回答

Trim(a)后看一下

怎么叫做不了判断?没有进入if内么?你先输出下看a=什么吧?你esle分支呢?

加入一句showMessage(a);
看一下,如果不是'超级用户',就进入不了
if a='超级用户' then
begin
combobox2.Enabled:=false;
end;


var a:string;
begin
  combobox2.ItemIndex:=0;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select top 1 Usrsup from denglu');
  adoquery1.Open;
  combobox1.Items.Add(Adoquery1.FieldValues['Usrsup']);
  combobox1.ItemIndex:=0;
  ShowMessage(a);
  a:=combobox1.Text;
  if a='超级用户' then
  begin
    combobox2.Enabled:=false;
  end;
end;

加入一句showMessage(a);
看一下,如果不是'超级用户',就进入不了
if a='超级用户' then
begin
combobox2.Enabled:=false;
end;


var a:string;
begin
  combobox2.ItemIndex:=0;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select top 1 Usrsup from denglu');
  adoquery1.Open;
  combobox1.Items.Add(Adoquery1.FieldValues['Usrsup']);
  combobox1.ItemIndex:=0;
  ShowMessage(a);
  a:=combobox1.Text;
  if a='超级用户' then
  begin
    combobox2.Enabled:=false;
  end;
end;

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
立即提问