(在线等待哈!很急的!)请教高手,看看我的程序,问题在哪,付上了错误提示的

Question

procedure TForm1.FormCreate(Sender: TObject);
type
  jihe1=set of 1..9;
  jihe2=set of 6..16;
  jiaoji=set of 1..20;
var
  ji1:jihe1;
  ji2:jihe2;
  kongji:jiaoji;
  m,n,h:string;
  i,j:integer;
begin
  m:='[';  j:=0;
  for i := 0 to 20 do
    if i in ji1 then
      if j := 0 then//此处  出现编译错误  delphi 提示如下:
{//[Error] U_jihe.pas(59): Type of expression must be BOOLEAN  
///[Fatal Error] P_jihe.dpr(5): Could not compile used unit 'U_jihe.pas'}
      begin
        m:=m+trim(inttostr(i));        j:=j+1;
      end
      else begin
        m:=m+','+trim(inttostr(i));        j:=j+1;
      end;
  m:=m+']';
  edit1.text:=m;请问,问题在哪?

Answer 1

      if j := 0  改为 if  j=0 
if 的条件语句必须用布尔类型。