TryStrToCurr

Question

Algu�m sabe como utilizar essa fun��o? Devem ser passados dois par�metros. O primeiro � a string que estou querendo transformar. O problema est� com o segundo par�metro, n�o entendi o que deve ser passado.

Rjun · Answer

[code:1:c3a36ff960]function TryStrToCurr(const S: string; out Value: Currency): Boolean; overload;[/code:1:c3a36ff960]O primeiro par�metro � o valor que voc� quer converter e o segundo par�metro � a vari�vel que ir� receber o valor convertido. Note que a fun��o retorna um booleano indicando se a convers�o foi ou n�o bem sucedida....

Bruno Belchior · Answer

[quote:4355ce6151]Converts a string to a Currency value, with a Boolean success code. [/quote:4355ce6151]Est� no [b:4355ce6151]help[/b:4355ce6151] do delphi... Converte uma string em um valor Monet�rio, e retorna uma valor booleano se a fun��o teve ou n�o sucesso... O primeiro par�metro � a string a ser convertida, e o segundo � a vari�vel onde ser� armazenado a convers�o......

Martins · Answer

S� pra refor�ar o q os mestres j� citaram, vai um exemplo para vc testar.

No c�digo abaixo a fun��o vai converter o valor de Edit1 para um valor monet�rio, caso a convers�o n�o possa ser feita, ser� exibida uma mensagem informando q o valor � inv�lido;

var
V: Currency;
begin
   if (TryStrToCurr(Edit1.Text, V))then
      Edit2.Text := FormatCurr(��, V)
   else
      ShowMessage(�O valor contido em Edit1: � + Edit1.Text + � � inv�lido�);
end;

vc pode utiliza em componentes q usam � logica booleana, assim:

var
H: Currency;
begin
//Se o valor de edit1 for v�lido marca o checkbox, caso contr�rio desmarca.
  CheckBox1.Checked := TryStrToCurr(Edit1.Text, H);
end;

Espero que possa lhe servir.

Boa Sorte

Martins

Peununes · Answer

Valeu galera! O que me faltava era a declara��o da segunda vari�vel que tem que ser do tipo currency.

Grande abra�o.

Obs.: Encontrei referencia no help do Delphi, mas n�o exemplo, da� a d�vida.

F�rum TryStrToCurr #295413