我这样使用(调用)存储过程,会不会造成内存泄漏

Question

function DaBmIsUse(ACn:TAdoConnection;vtablename:string;vbmfield:string;vbm:string):Boolean;
var
    Sp:TAdoStoredProc;
    iOk:Integer;
    vInfo:string;
begin
    vInfo:='';
    Sp:=TAdoStoredProc.Create(nil);
    try
        Sp.Connection:=ACn;
        Sp.ProcedureName:='p_bmisuse';
        with Sp do
        begin
            Close;
            Parameters.Clear;
            Parameters.CreateParameter('@vtablename',  ftString,  pdInput,30,  vtablename);
            Parameters.CreateParameter('@vbmfield',    ftString,  pdInput,30,  vbmfield);
            Parameters.CreateParameter('@vbm',         ftString,  pdInput,30,  vbm);
            Parameters.CreateParameter('@iOk',         ftSmallint,pdOutput,4,  iOk);
            Parameters.CreateParameter('@vInfo',       ftString,  pdOutput,100,vInfo);
            Prepared:=true;
            ExecProc;
            Result:=Parameters.ParamValues['@iOk']<>0;
        end;
    finally
        Sp.Close;
        Sp.Free;
    end;
end;

Answer 1

不会,但有可能会出错,因为你的数据类型不匹配,而你的iOk又没有初始化过,所以有可能导致出错的根本原因,有两种解决办法,
>1
ftSmallint用整型
>2
初始化你的iok值-----------------------------
iOk:Integer; Parameters.CreateParameter('@iOk',         ftSmallint,pdOutput,4,  iOk);