PC Toledo

Olá!
Matematicamente ainda não entendi a dificuldade do xBase e a vantagem do Delphi.
http://www.delphibasics.co.uk/RTL.asp?Name=Currency
Vi que é a mesma coisa no mundo xBase
var
account1, account2, account3 : Currency;

Será o mesmo no xBase

function main
LOCAL account1, account2, account3 ...

Como ainda não existe um tipo numérico próprio (seria interessante nas próximas versões do harbour), uma ideia é salvar os valores em centavos (multiplicar por 100), sendo este números inteiros. Evitando assim os erros nos ajustes de "aproximação".

Olá!
Para o comerciante é melhor usar round() com duas casas decimais. Pq até 1,504... fica 1,50 e 1,505... fica 1,51
Se não me engano. Abaixo de 5 ele despreza, e o comerciante não quer.

Saudações,
Itamar M. Lins Jr.

A soma de vários número com "arredondamento" (como em um cupom fiscal de ...

Bom dia a todos.

Eu converto o número para texto e depois volto para número para desprezar as dízimas que causam o arredondamento.

Para isso, converter com quatro casas decimais ou mais e tirar o substring até a segunda casa.

Saudações,
Mario.


Tenho feito desta forma também. Porém para uma ...

Prezados Senhores,

Uma dificuldade que passamos é com relação ao tipo numérico no Harbour (e Xailer) quando se armazena valores de moeda. Quando existem muitos cálculos "fracionados" envolvendo estes podemos ter no final diferença de alguns centavos (tipo 0.01) além de conteúdos que imprimem "0.00 ...

Vou tentar instalar o harbour para android usando o tutorial do Giovani Di Maria. http://www.elektrosoft.it/tutorials/har ... indows.asp

Eu estou usando Ubuntu 16, gostaria de saber se alguem sabe como instalar o gcc-arm.

Obrigado a todos.


No tutorial acima menciona o NDK 9 porem não tem mais ...

Olá Dinho,
Talvez eu tenha entendido errado, mas pelo que entendi o xBase usa os comando clipper para gera uma tela Grafica é isso ?
Tipo:

FUNC MAIN()
Local vDIG:=''
@ 10,10 SAY ' OLA MUNDO'
@ 10,11 GET vDIG
READ
RETURN

Uma tela assim não roda no xBase e já gera em tela gráfica ?

O Xbase tem 3 ...

Ótima notícia.
Coloque o link aqui.
Obrigado.

eu tô estudando a possibilidade de voltar para o Delphi 10.x em diante que é 3x1.
tinha largado desde 1997 pra encarar o clipper e depois o harbour.
Mas, com o abandono do viktor do projeto (pelo menos é o que entendo), a gente vai ficar, como na falência da CACLIPPER: "órfãos" novamente.


O ...

Já ouvi falar. Tire me umas dúvidas:

Qual a linguagem de programação?
Tem versão DEMO funcional?
O Executável é ágil para Sistemas grandes (máquinas desktop rodando Android) ou apenas para pequenos Apps embarcados?

Desde já, obrigado.

Vi o projeto Hdroid, mas o autor quiz mostrar apenas que a ideia dá certo, não investiu em continuidade.

O Xailer está excelente, muito atualizado, produtivo e seguro. Porém seus autores discartaram qualquer plano "imediato" de porta-lo para Android (embora utilize Harbour, gtwvg e Mingw, que ...

Alguém sabe de alguma novidade?

Como reportar um Bug a equipe Harbour?

Amigo,

Obrigado.

Funcionou perfeitamente.

alxsts escreveu:Olá!

Tente assim:

Código: Selecionar todos

Local oXml, cFileXml

.....

Do While .....

.......

oXml := TXmlDocument():New()
oXml:Read( MemoRead( cFileXml ))

......


oXml := NIL
hb_gcAll()  // Chamada ao Garbage Collector -> limpa "lixo" da memória

EndDo

Prezados Amigos,

Estou utilizando a Classe TXml para Processar informações de Milhares de XML da forma abaixo:

Local oXml, cFileXml

.....

Do While .....

.......

oXml := TXmlDocument():New()
oXml:Read( MemoRead( cFileXml ))

......

EndDo


O problema é que com o uso do método "NEW " a cada ...