ActiveDelphi

kakarlos · Enviada: Ter Out 21, 2014 9:33 pm Assunto: nao acho o erro

ola pessoal ...tenho um codigo aqui... ele nao me retorna nenhum erro mas tamber nao funciona.. se eu usar ele separadamente funciona perfeito mas aqui nao..

anderbelluno · Enviada: Qua Out 22, 2014 1:53 am Assunto:

pq vc ta transformando para Str ao fazer os calculos?
basta na hora de mostrar a mensagem. Outra coisa vc tem certeza que as variaveis estao sendo preenchidas corretamente ? acho melhor vc usar uns breakpoint para analizar linha por linha.
att.
Anderson.

johnny-walker · Enviada: Qua Out 22, 2014 9:22 am Assunto:

Vou te dar uma sugestão, não utilize strings para fazer contas, isto acaba mais por confundir uma operação que poderia ser simplificada.
Se vai mostrar a mensagem, basta fazer um typecasting na variável.
Assim evita-se erros e conversões desnecessárias.

bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I

kakarlos · Enviada: Qua Out 22, 2014 11:38 am Assunto:

jr.schon · Enviada: Qua Out 22, 2014 1:41 pm Assunto:

Olá, eu tive problema uma vez em fazer a conversão dentro do calculo.
Eu acabei fazendo as conversões antes, e depois os calculos.

Exemplo:

a := Round(strtofloat(edit1.text)+strtofloat(edit2.text));

Tive que fazer assim:
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
c:=a+b;
d:=Round(c);

Faça um teste dessa maneira.

kakarlos · Enviada: Qua Out 22, 2014 5:45 pm Assunto:

DanielChrome · Enviada: Qui Out 23, 2014 11:56 am Assunto:

if (resultado > resultado2) and (resultado <= FloatToStr(StrToFloat(resultado2)*(StrToFloat('2')))) THEN
VAR1:='2';

Vamos analisar sua condição IF:

Se Resultado for MAIOR que resultado 2 E
Resultado for Menor ou Igual a Resultado2 * 2.

Nunca irá funcionar, pois você está quebrando a comparação. Em que situação o Resultado será MAIOR e (MENOR-IGUAL) ao mesmo tempo???

Melhore seu IF, ele está contráditorio.

kakarlos · Enviada: Sex Out 24, 2014 11:16 am Assunto:

Cara nao eh isso ai nao ..
ja achei o erro bastava adicionar StrtoInt

if (strtoint(resultado) > strtotin(resultado2)) and (strtoint(resultado) <= FloatToStr(StrToFloat(resultado2)*(StrToFloat('2'));

gilsonnrodrigues · Enviada: Seg Out 27, 2014 2:32 pm Assunto:

é 12 é maior q 5

mas

'5' é maior q '12'

entendeu?

anderbelluno · Enviada: Seg Out 27, 2014 2:40 pm Assunto:

kakarlos · Enviada: Sáb Nov 01, 2014 8:32 am Assunto:

eu ja resolvi ... mas vou explicar...
se resultado for maior que resultado2 e resultado menor que duas vezes o resultado2...
oque eu estou fazer eh verificando se o resultado esta entre o resultado2 e o dobro do resultado2.....

ex:
resultado:=5
resultado2:=4

if *5 > *4 and *5 <= *8 then... .. o oito eh por que eh quatro multiplicado por 2..
assim verifico se ele esta dentro de uma determinada faixa..

nao sei se fui claro .... mas minha logica funcionou sim...