delphi7 if else 语句使用问题．已贴出程式了．就是搞不懂．帮我．．．．

Question

   combobox6.items.clear;
   combobox6.Items.Append('无');
   combobox6.Items.Append('红') ;
   combobox6.Items.Append('绿') ;
   if ad.FieldByName('fld_index')=0 then
      begin
     combobox6.ItemIndex:=0;
     end
    else if ad.FieldByName('fld_index')=1 then
    begin
    combobox6.ItemIndex:=1;
    else
    combobox6.ItemIndex:=2;end;帮我看一下，那里出错了．晕了！

Answer 1

   combobox6.items.clear;
   combobox6.Items.Append('无');
   combobox6.Items.Append('红') ;
   combobox6.Items.Append('绿') ;
   if ad.FieldByName('fld_index')=0 then
   begin
     combobox6.ItemIndex:=0;
   end
   else if ad.FieldByName('fld_index')=1 then
   begin
     combobox6.ItemIndex:=1;
   end 
   else
    combobox6.ItemIndex:=2;end;

Answer 2

   combobox6.items.clear;
   combobox6.Items.Append('无');
   combobox6.Items.Append('红') ;
   combobox6.Items.Append('绿') ;
   
   if ad.FieldByName('fld_index').AsInteger=0 then       combobox6.ItemIndex:=0;
    else 
       if ad.FieldByName('fld_index').AsInteger=1 then       combobox6.ItemIndex:=1;
         else  combobox6.ItemIndex:=2;

Answer 3

   combobox6.items.clear;
   combobox6.Items.Append('无');
   combobox6.Items.Append('红') ;
   combobox6.Items.Append('绿') ;   if ad.FieldByName('fld_index') = 0 then
     combobox6.ItemIndex:=0
   else if ad.FieldByName('fld_index')=1 then
     combobox6.ItemIndex:=1;
   else
     combobox6.ItemIndex:=2;end;

Answer 4

楼上的几位都没有写全答案，要么fieldbyname错误，要么多了个分号 哈哈。  combobox6.items.clear; 
  combobox6.Items.Append('无'); 
  combobox6.Items.Append('红') ; 
  combobox6.Items.Append('绿') ; 
  
  if ad.FieldByName('fld_index').AsInteger=0 then      
  begin
    combobox6.ItemIndex:=0; 
  end
  else if ad.FieldByName('fld_index').AsInteger=1 then      
  begin
    combobox6.ItemIndex:=1; 
  end
  else  
    combobox6.ItemIndex:=2; 

Answer 5

begin
  combobox6.items.clear;
   combobox6.Items.Append('无');
   combobox6.Items.Append('红') ;
   combobox6.Items.Append('绿') ;
   if ad.FieldByName('fld_index').asinteger = 0 then
   begin
     combobox6.ItemIndex:=0;
   end else if ad.FieldByName('fld_index').asinteger = 1 then
   begin
    combobox6.ItemIndex:=1;
   end else  combobox6.ItemIndex:=2;end;