Sobre Retorno de Fun��o Double

Question

pessoal tenho uma fun��o que me retorna um double...
depurando, na linha em que a fun��o recebe seu resultado, lhe � atribuido [b:bb94bad1ba]0,0013[/b:bb94bad1ba], por�m, qdo volto a execu��o do procedimento que o chamou, seu resultado � apenas [b:bb94bad1ba]0,001[/b:bb94bad1ba]...

Edilcimar · Answer

voc� n�o est� formatando o n�mero em algum local?...

Yallebr · Answer

N�o. Veja s� est� dessa forma:[code:1:bf449dff67]function Chamada(Valor: Double): Double;var  Resultado: Double;begin  Resultado := (Valor * 5) / 1000;   Result := RoundTo(Resultado, -4); // nesse ponto result recebe 0.0013end;procedure Chamador;var  Resultado: Double;begin  Resultado := 5.0;  Resultado := Chamada(Resultado);    // nesse ponto Resultado recebe 0.001end;[/code:1:bf449dff67]ou seja o delphi est� suprindo algo, ou estou errado......

Edilcimar · Answer

vc est� manipulando result e pegando resultado...

Bruno Belchior · Answer

[code:1:96ca52665a]  Resultado := (Valor * 5) / 1000;   Result := RoundTo(Resultado, -4); // nesse ponto result recebe 0.0013 [/code:1:96ca52665a]veja bem, aqui eu manipulo o [b:96ca52665a]Resultado[/b:96ca52665a] por�m o [b:96ca52665a]Result[/b:96ca52665a] ir� receb�-lo......

Edilcimar · Answer

correto, mas fora da fun��o, no retorno, voc� est� pegando quem result ou resultado?...

Bruno Belchior · Answer

o [b:9178eabc81]Result[/b:9178eabc81]......

Edilcimar · Answer

vc escreveu[quote:0aab46e360]Resultado := Chamada(Resultado);    // nesse ponto Resultado recebe 0.001 [/quote:0aab46e360]aqui est� resultado e n�o result...

Bruno Belchior · Answer

mas esse resultado � uma vari�vel qualquer que recebe o valor da fun��o... veja nessa forma:

function Chamada(Valor: Double): Double; 
var 
  Resultado: Double; 
begin 
  Resultado := (Valor * 5) / 1000; 
  Result := RoundTo(Resultado, -4); // nesse ponto result recebe 0.0013 
end; 

procedure Chamador; 
var 
  VariaVelQualquer: Double; 
begin 
  Resultado := 5.0; 
  VariaVelQualquer := Chamada(Resultado);    // nesse ponto Resultado recebe 0.001 
end;

Edilcimar · Answer

function Chamada(Valor: Double): Double;
var
Resultado: Double;
begin
Resultado := (Valor * 5) / 1000;
coloque um showmessage
Result := RoundTo(Resultado, -4); // nesse ponto result recebe 0.0013
coloque um showmessage
end;

procedure Chamador;
var
VariaVelQualquer: Double;
begin
Resultado := 5.0;
VariaVelQualquer := Chamada(Resultado); // nesse ponto Resultado recebe 0.001
coloque um showmessage -> aqui voc� ver� que ter� o valor de resultado pois voc� chamou o resultado e n�o o result
end;

Bruno Belchior · Answer

essa vari�vel resultado n�o � vari�vel externa mas sim interna de cada procedimento, logo em um n�o afetar� o outro......

Edilcimar · Answer

qual a resposta que vc teve com os showmessage?...

Beppe · Answer

Tem coisa muito errada a�, pq (5.0 * 5) / 1000 = 0.025...

Edilcimar · Answer

realmente, eu nem tinha feito as contas...

Marco Salles · Answer

[quote:08567c9f27]Tem coisa muito errada a�, pq (5.0 * 5) / 1000 = 0.025[/quote:08567c9f27][quote:08567c9f27]realmente, eu nem tinha feito as contas[/quote:08567c9f27]Meio estranho ne :P  :P  :P Mas efetuando contas ou n�o , vou dar meu palpite.  :arrow:  :arrow:  :idea: Acho que uma linha de raciocineo pode ser:[quote:08567c9f27]correto, mas fora da fun��o, no retorno, voc� est� pegando quem result ou resultado?[/quote:08567c9f27]Sobre esta linha de raciocineo , Sugiro  ao meu amigo [b:08567c9f27]brunovicenteb[/b:08567c9f27]Que fa�a um Teste e Post o Resultado Para NosO teste e o seguinte , de um [b:08567c9f27]<CTRL F9>[/b:08567c9f27] no seu codigo.. Diga-se alguma das linhas de seu codigo , ficaram sem compilarCompilar que eu me refiro e aquelas bolinhas [color=blue:08567c9f27]azuizinhas[/color:08567c9f27] que aparece no lado Esquero do c�digo...

Bruno Belchior · Answer

[quote:650c365526=�Beppe�]Tem coisa muito errada a�, pq (5.0 * 5) / 1000 = 0.025[/quote:650c365526]qto a isso ai, � apenas um exemplo, realmente os valores n�o s�o esses, tive de depurar o c�digo e me surpreendi, pq no outro dia, simplesmente funcionou!!!.    :?:  :?:  :?:...

F�rum Sobre Retorno de Fun��o Double #278348