Página 1 de 1
fonte do sort ou dbsort
Enviado: 23 Set 2008 08:58
por tonyx
alquem teria o fonte em C ou em PRG do SORT ou __DBSORT()
TENTO COLOCAR NO XHARBOUR O __DBSORT MAS TA LENTO LA NO XH
POR ISTO PROCURO O FONTE DO __DBSORT().SRC
VERIFIQUEI NO XH/BIN/32 TEM DBSORT.C MAS NAO TEM A LOGICA EM SI ESPECIFICA
AGRADECO AJUDA :{
SE FOR ALGO GUARDADO A 7 CHAVES - JA ESTA COMPREENDIDO
Re: fonte do sort ou dbsort
Enviado: 23 Set 2008 10:00
por sygecom
Segue abaixo o codigo fonte do xHarbour.
Localizado em: \xHarbour\source\rdd\dbsort.prg
Código: Selecionar todos
FUNCTION __dbSort( cToFileName, aFields, bFor, bWhile, nNext, nRecord, lRest,;
cRDD, nConnection, cCodePage )
LOCAL nOldArea
LOCAL nToArea
LOCAL aStruct
LOCAL oError
LOCAL lError := .F.
IF Empty( aStruct := dbStruct() )
RETURN .F.
ENDIF
nOldArea := Select()
BEGIN SEQUENCE
dbCreate( cToFileName, aStruct, cRDD, .T., "", NIL, cCodePage, nConnection )
nToArea := Select()
dbSelectArea( nOldArea )
__dbArrange( nToArea, aStruct, bFor, bWhile, nNext, nRecord, lRest, aFields )
RECOVER USING oError
lError := .T.
END SEQUENCE
IF nToArea != NIL
dbSelectArea( nToArea )
dbCloseArea()
ENDIF
dbSelectArea( nOldArea )
IF lError
Break( oError )
ENDIF
RETURN .T.
Re: fonte do sort ou dbsort
Enviado: 23 Set 2008 11:06
por tonyx
entao o basico da organizacao do __dbsort esta nesta funcao aqui ??
__dbArrange( nToArea, aStruct, bFor, bWhile, nNext, nRecord, lRest, aFields )
tudo feito na memoria ??
//=============
no caso de demora para organizar sendo um pequeno arquivo
realizo num xp, no clipper a mesma funcao __dbsort() vai rapida
no xh ?? lerda
poderia ser agum include tipo setup.ch
Re: fonte do sort ou dbsort
Enviado: 23 Set 2008 11:25
por Maligno
no xh ?? lerda
Poderia ser um bug na sua versão, não?