arcengine 执行sql获得返回值

 //执行sql返回值 by yanleigis Landgis@126.com

function ExecSQLResult(FWorkspace: IWorkspace; Sqlstr: string): olevariant;

var
    TableName                           : string;
    SubFields                           : string;
    WhereClause                         : string;
    P                                   : Integer;
    pFeatureWorkspace                   : IFeatureWorkspace;
    pQueryDef                           : IQueryDef;
    PCursor                             : ICursor;
    pRow                                : Irow;

begin
    P := upperpos('select ', Sqlstr);
    result := NULL;
    if P = 0 then Exit;
    Delete(Sqlstr, P, 7);
    P := upperpos(' from ', Sqlstr);
    if P = 0 then Exit;

    SubFields := Copy(Sqlstr, 1, P - 1);
    Delete(Sqlstr, 1, P + 5);
    P := up