TryStrToCurr

Delphi

14/09/2005

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.


Peununes

Peununes

Curtidas 0

Respostas

Rjun

Rjun

14/09/2005

function TryStrToCurr(const S: string; out Value: Currency): Boolean; overload;


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.


GOSTEI 0
Bruno Belchior

Bruno Belchior

14/09/2005

Converts a string to a Currency value, with a Boolean success code.
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...


GOSTEI 0
Martins

Martins

14/09/2005

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


GOSTEI 0
Peununes

Peununes

14/09/2005

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.


GOSTEI 0
POSTAR