function TODBCVariable.GetDataPtr(AIndex: SQLUInteger; out ApData: SQLPointer;
  out ASize: SQLInteger; out ApInd: PSQLInteger): PSQLPointer;
begin
  ASSERT((FList <> nil) and (FList.FBuffer <> nil));
  FList.FBuffer.GetDataPtr(Self, AIndex, SQLPointer(Result), ApInd);
  if PSQLUInteger(ApInd)^ = SQL_NULL_DATA then
    ASize := 0
  else
    ASize := PSQLUInteger(ApInd)^;
  if LongData then begin
    ASSERT((ASize <= SQL_LEN_DATA_AT_EXEC_OFFSET) or (ASize >= 0));
    ApData := Result^;
    if ApData = nil then
      ASize := 0
    else if ASize <= SQL_LEN_DATA_AT_EXEC_OFFSET then
      ASize := SQL_LEN_DATA_AT_EXEC_OFFSET - ASize;
  end
  else
    ApData := Result;
  ASSERT((Result <> nil) and (ASize >= 0));
end;