nCount=0
SCAN
  cOldPole1=Pole1
  nCount=nCount+1
  SCAN FOR Pole1=cOldPole1
  ENDSCAN
ENDSCAN

Index On поле
Set index to ...
lnKol=0
lnCur=-999999999999
scan
if поле<>lnCur
lnKol=lnKol+1
lnCur=поле
endif
endscan

USE MyTable
GO top

lnCount=1
DIMENSION laCount(lnCount)
laCount(lnCount)=MyTable.Field1

FOR i=1 TO Count('MyTable')
   llFind=.f.
   FOR j=1 TO ALen(laCount)
      IF laCount(j)=MyTable.Field1
         llFind=.t.
         EXIT
      ENDIF
   ENDFOR

   IF !llFind
      lnCount=lnCount+1
      DIMENSION laCount(lnCount)
      laCount(lnCount)=MyTable.Field1
   ENDIF

   SKIP
ENDFOR

? ALen(laCount)

CREATE CURSOR dgt ( p n(1))
FOR i=1 TO 9
    DO CASE 
       CASE i=1
            INSERT INTO dgt (p) VALUES (i)
            INSERT INTO dgt (p) VALUES (i)
            INSERT INTO dgt (p) VALUES (i)
       CASE i=5
            INSERT INTO dgt (p) VALUES (i)
            INSERT INTO dgt (p) VALUES (i)
       CASE i=6
            INSERT INTO dgt (p) VALUES (i)
       CASE i=8
            INSERT INTO dgt (p) VALUES (i)
            INSERT INTO dgt (p) VALUES (i)
    ENDCASE 
NEXT

DIMENSION AD[9]
STORE 0 TO AD
GO top
FOR y=1 TO RECCOUNT()
   GO y
   AD[p] = AD[p] +1   
NEXT

 

Local Array tmp(1)
tmp(1)=tbl.fld
skip
do while eof()
    =ASORT(tmp)
    lnKol=ALEN(tmp)
    if tmp(lnKol)<tbl.fld
        DIMENSION tmp(lnKol+1)
        tmp(lnKol+1)=tbl.fld
    endif
    skip
enddo
? ALEN(tmp)

cOldPole1=-1
COUNT FOR boz_kor() TO nCount
?nCount
FUNCTION Boz_kor
IF Pole1#cOldPole1
    cOldPole1=Pole1 
    RETURN .T.
ELSE    
     RETURN .F.
ENDIF

CREATE CURSOR cur1 (fld_ I)
INSERT INTO cur1 (fld_) VALUES (1)
INSERT INTO cur1 (fld_) VALUES (1)
INSERT INTO cur1 (fld_) VALUES (1)
INSERT INTO cur1 (fld_) VALUES (5)
INSERT INTO cur1 (fld_) VALUES (5)
INSERT INTO cur1 (fld_) VALUES (6)
INSERT INTO cur1 (fld_) VALUES (8)
INSERT INTO cur1 (fld_) VALUES (8)
*BROWSE
SELECT fld_, COUNT('fld_') AS количество FROM cur1 ;
GROUP BY fld_ HAVING COUNT('fld_')>0 into cursor cur_dups 
USE IN SELECT('cur1')
SELECT cur_dups
BROWSE
USE IN SELECT('cur_dups')

RETURN 

Цикл перебора записей таблицы

    Если значение текущей записи есть в дополнительном хранилище, то переходим к следующей записи
    
    Если значения текущей записи нет в дополнительном хранилище, 
    то записываю значение текущей записи в дополнительное хранилище
    и увеличиваю счетчик на 1

Конец цикла перебора записаей

Цикл перебора записей упорядоченной таблицы  

    Если это первая запись таблицы ИЛИ значение текущей записи не равно значению переменной,
    то записываю значение текущей записи в переменную
    и увеличиваю счетчик на 1

    В противном случае, переходим к следующей записи

Конец цикла перебора записаей