... Set rdd to adordd Add your index files to ListIndex() accordingly to the specs. All temp name index files must be present in ListTmpNames() "TMP","TEMP" Ready: Open Close Indexes Locks Navigation Find dbinfo ordinfo Seek (without lSoftSeek)
... PAGE WITH I REPLACE MEMO WITH aPag[I] COMMIT NEXT I // BROWSE() CLOSE ALL RECUPERAR(cFile) RETURN NIL FUNCTION cFileTemp(cExt) LOCAL cFile:="tmp"+STRTRAN(LSTR(SECONDS()),".","")+cExt RETURN cFile FUNCTION lstr(nValue) RETURN ALLTRIM(STR(nValue)) FUNCTION GETPAGES(cFileOrg) ...
A anos trabalho com ads e tive muitos problemas tentando usar dicionarios de dados ADT e DBFs livres. Neste percurso desde 2004 quando comecei com advantage resolvi ir atribuindo a ferramentas que eu mesmo contrui. Primeiramente o xAds para trabalhar com DBFs livres, depois de muito tempo desenvolvi...
... ) ) ) proc main( x ) local n, a a := array( N_LOOPS ) FREE MEMORY for n := 1 to N_LOOPS a[n] := f( x ) FREE MEMORY next return func f(x) local cb, tmp, ref tmp := space( 60000 ) if empty( x ) cb := {|| .t. } else cb := {|| ref } endif return cb If you execute above program with non empty parameter ...
... : conversi¢n de 'size_t' a 'int'; posible p‚rdida de datos En 32 bits necesito utilizar las librerías: echo wininet.lib >> msvc.tmp echo ws2_32.lib >> msvc.tmp Y las he incluido por ver si así se eliminaban los errores pero no ha servido de solución. Creo que el problema ...
... se quedan . Tengo que comprobar si cuando se vuelve a entrar nueva mente esos archivos se usan , sino lo suyo sería colocarlos en un directorio /tmp y al iniciar el programa borrar todo lo que se encuentre en el .. ¿ Como lo veis ? . ¿Otra opción ? ¿ un ini ? Espero opiniones .
... local cFileRC := "" local nPRGFile := 0 local nRCFile := 0,nLen,oDlgCompile if !file("prg.tmp") ?"File prg.tmp not found" return nil endif ClearFileCompiler() if file("prg.tmp") ...