08 Set 2019 21:58
hazael escreveu:Era um "Clipper para Linux" que tinha até participação do Przemek e do Kresin
hazael escreveu:A coisa mais interessante é que ele tinha suporte para a Hyper-Six que não tem no Harbour, somente no xHarbour comercial, além de uma boa compatibilidade com o Clipper.Nada impede que alguém dê uma olhada nesta parte da Hyper-Six do Clip e porte para o Harbour, é claro... o Przemek tinha um acordo com o xHarbour Comercial de fornecimento exclusivo... mas seria muito interessante se um dia isso for liberado para o Harbour, daria um grande salto na vida dos .DBF
11 Set 2019 21:21
13 Set 2019 03:58
08 Out 2019 10:35
Function aScan2( a, mBuscab, mColb)
local i, low, high, mid, mtam_plv, x
low=1
high=len(a)
If high=0
return(0)
Endif
mid=int((low+high)/2)
mtam_plv=len(mbuscab)
Do while substr(a[mid],1,mtam_plv) # mBuscab .and. low <= high
if mbuscab>substr(a[mid],1,mtam_plv)
low=mid+1
else
high=mid-1
if high<1
return(0)
endif
endif
mid=int((low+high)/2)
enddo
if substr(a[mid],1,mtam_plv) # mbuscab
mid=0
else
for x=mid-1 to 1 step -1
if substr(a[x],1,mtam_plv)=mbuscab
mid=x
else
exit
endif
next
endif
return(mid)