函数提示返回值不明确，可小弟我明明是有明确的返回结果的

函数提示返回值不明确，可我明明是有明确的返回结果的
此函数作用是根据传入的StuID，先找数组中有没有此StuID，如果有，返回数组下标，如果没有，返回整型值10000。调试的时候，在程序中调用此函数，ShowMessage，可以输出返回值，但就是运行时警告Return   value   of   function   'XXX '   might   be   undefined，而且当程序执行到这个函数的时候就会出错！
请教达人，感激中……

    function   IsConnected(StuID:String):Integer;
    var
        tempStuID:String;
        i:Integer;
        IsExist:Boolean;
    begin
        tempStuID:=StuID;
        IsExist:=False;
        For   i:=0   to   ActiveNum-1   Do
        begin
            If   CInfos[i].StuID=tempStuID   then
            begin
                Result:=i;
                IsExist:=True;
            end;
        end;

        If   IsExist=False   Then
        begin
            Result:=10000;
        end;
    end;

[解决办法]
返回值是result(IsConnected)，不是IsExist。
改成这样：
If IsExist Then
Result:=0 // 你自己随便定义了
else
Result:=10000;

[解决办法]
修改了一下，没有测试过，你自己测试一下：
function IsConnected(StuID:String):Integer;
var
i:Integer;
begin
Result:=10000;
For i:=0 to ActiveNum-1 Do
If CInfos[i].StuID=StuID then
begin
Result:=i;
Break;
end;
end;