PC Toledo

Obrigado pela dica, ajudou muito.

Meus sentimentos à família e amigos.
É uma perca enorme, simplesmente sem palavras.

Retiro o elogio, embora o resultado ainda seja surprendente. Testei ele gerando códigos em várias outras linguagens, esta aqui especificamente é a que ele mais come bola na sintaxe. Talvez devido à forma como o Clipper evoluiu no decorrer do tempo, mas mesmo assim é sempre surpreendente.

Quero compartilhar uma brincadeira que me veio aqui a mente com base numa necessidade real que me surgiu hoje, saca só que legal:

User
Voce sabe programar em clipper?
ChatGPT
Sim, eu tenho conhecimento sobre programação em Clipper. Clipper é uma linguagem de programação que foi muito popular ...

Olá Marcelo,

Obrigado pelo seu interesse, esta vaga já foi preenchida.
Um grande abraço, sucesso pra ti!

... eu não sei como utilizar as funções que mencionastes, procurei um exemplo na Internet, sem êxito.
Logo abaixo estou enviando um link para uma cópia do NG em Português com os comandos e funcoes do Clipper 5.
Muita coisa ali funciona também no Clipper 5.3 e no Harbour atual.

Como voce disse ...

aList := teste():new()
AAdd(aList:aFaltas, date() )
AAdd(aList:aFaltas, date()-45 )
AAdd(aList:aFaltas, date()-50 )

funcao( aList )
? toString(aList)

funcao( @aList )
? toString(aList)
quit

class teste
data nSalario init 0
data aFaltas init {}
endclass

function funcao(aList)
aList:aFaltas[1 ...

Se eu passo uma classe por parâmetro, eu estou passando tudo existente dentro da classe, ou somente a referência à classe?[
Um objeto é tratado como um ARRAY: é enviado sempre só a referencia dele como argumento. Ele só ocupa uma única posição da memória, mas esta referencia permite acessar sempre ...

Olá,

Deixe-me ver se entendi o caso e consigo contribuir:

1) Abra o arquivo com todos os indices
2) dê um SET ORDER TO 0
3) Use o seu comando DELETE ALL ...
4) Volte para a ORDER necessária.

Creio que isto deve te ajudar.

Obrigado pela dica José!

Lindona demais esta tela, hein Kapi?

Xonei nela, parabéns pelo visual do projeto.

Sim, entendo. É uma opção, eu prefiro a outra que é como você fez: escrutinar o código e torná-lo melhor, mais robusto e maduro.

cnSQL := win_OleCreateObject( "ADODB.Connection" )
....
Basicamente criar a conexão, configurar, e usar o tempo todo, com cnSQL:Execute( "comando" )


José pelo codigo fonte que li aqui, o Harbour já tenta liberar a memória automaticamente quando a variavel criada com win_OleCreateObject() é ...

Eu não uso ADO... qual a funcao do Harbour voce usou para criar "conexao"?

Depende de como foi implementada a classe José.

Imagine uma classe que abre uma conexão socket, um DBF, criou ou abriu um RESOURCE, uma conexão com o banco, etc... o mínimo que se espera é que a classe ao morrer, feche estes recursos apropriadamente para liberar recursos de RAM, do sistema ...