Uma da pragas do Egito foi a nuvem de gafanhotos.
E eis que alguém olhou para o ceu e eram tantos os gafanhotos que cobriram o Sol e a terra fiocu escura.
Alguém perguntou: - O que é isso, como resolver o problema?
Algum entendido respodeu: - Isso aconteceu porque cortaram as árvores, onde os ...
Pesquisa resultou em 2 ocorrências
- 08 Out 2007 18:25
- Fórum: [x]Harbour
- Tópico: xharbour com mysql
- Respostas: 8
- Exibições: 4701
- 08 Out 2007 18:12
- Fórum: [x]Harbour
- Tópico: xharbour com mysql
- Respostas: 8
- Exibições: 4701
Lê o N. do HD abre se for igual e é difícil de ser lido.
FUNCTION TRAVA
LOCAL TRAVA
SET CURSOR OFF
! VOL>TRAVA2
ARQUIVO := "TRAVA2"
MEMOFILE := MEMOREAD (ARQUIVO)
! DEL TRAVA2
MEMOFILE = MEMOLINE(MEMOFILE,,3)
STRING=SPAC(09)
VSTRING(STRING)
IF AT(STRING,MEMOFILE) = 0
QUADRO()
@ 10,07,14,73 BOX 'ÚÄ¿³ÙÄÀ³ '
@ 11,28 SAY "PROGRAMA NŽO AUTORIZADO ...
LOCAL TRAVA
SET CURSOR OFF
! VOL>TRAVA2
ARQUIVO := "TRAVA2"
MEMOFILE := MEMOREAD (ARQUIVO)
! DEL TRAVA2
MEMOFILE = MEMOLINE(MEMOFILE,,3)
STRING=SPAC(09)
VSTRING(STRING)
IF AT(STRING,MEMOFILE) = 0
QUADRO()
@ 10,07,14,73 BOX 'ÚÄ¿³ÙÄÀ³ '
@ 11,28 SAY "PROGRAMA NŽO AUTORIZADO ...