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;

为什么做不了判断？？？

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;