TmpPos := AnsiPos('''','''', TmpStr);

        if TmpPos > 0 then

          AList.Add(Copy(TmpStr, 1, TmpPos - 1))

        else

        begin

          AList.Add(TmpStr);

          TmpStr := '''''''';

        end;

        Delete(TmpStr, 1, TmpPos)

      end;

      Result := True;

    end;

    FreeMem(ConnStrOut, ConnStrOutMax);

  finally

    if Assigned(HDBC) then

    begin

      SQLDisconnect(HDBC);

      SQLFreeHandle(SQL_HANDLE_DBC, HDBC);

      HDBC := nil;

    end;

    if Assigned(HENV) then

    begin

      SQLFreeHandle(SQL_HANDLE_ENV, HENV);

      HENV := nil;

    end;

  end;

end;

                                                        张伟(Alan) Alan@cnvcl.org

上一页  [1] [2] [3] [4] [5] [6] [7] [8]