[Error] UnitPgmList.pas(263): Type of expression must be BOOLEAN

Question

if Self.FInsert(Val, Index) then    //当节目插入时,这个应该是一个判断语句
  begin
     Assert((Index > 0)and(Index <= Self.Count + 1), '节目单插入操作Index超界!');
     if Index >= Self.Count + 1 then
     begin
      Self.Append(Val);
     end
     Self.Items[Index] := Val;
     Self.Items[Index].CtrlData.GroupID := index;  end;
其中最前面有一个定义的函数：    function FInsert(Val: TPgmItem; Index: integer): integer;//插入节目请问高手，这个应该怎么修改呢？谢谢你了

Answer 1

补充：constructor TPgmList.Seed(Val: TPgmItem;i: integer);  //++++++++++++++++++++++++++++++++++++++++++++++
var Index: integer;

Answer 2

出错的原因就是因为下面这句话！if Self.FInsert(Val, Index) then //当节目插入时,这个应该是一个判断语句FInsert函数返回的又不是Boolean[color]
[color=#800000]你改成 if Self.FInsert(Val, Index) <> -1 then 就可以啦！

Answer 3

出错的原因就是因为下面这句话！if Self.FInsert(Val, Index) then //当节目插入时,这个应该是一个判断语句FInsert函数返回的又不是Boolean
你改成 if Self.FInsert(Val, Index) <> -1 then 就可以啦！