Retornando Valor (Currency) de um Label

Bem pessoal, esta função retorna o valor de um label, descartado o que não é valor numérico

function StrCurrToCurrDef(AString: string; Default: Currency): Currency;

begin

AString := StringReplace(AString, ThousandSeparator, ”, [rfReplaceAll]);

AString := StringReplace(AString, CurrencyString, ”, [rfReplaceAll]);

Result := StrToCurrDef(AString, Default);

end;

onde :

Default em StrCurrToCurrDef(AString: string; Default: Currency) é o valor padrão caso ocorra erro.

ex:

if  StrCurrToCurrDef(label1.Caption, 0)>0 then

ShowMessage(‘Valor positivo maior que 0’)

else

ShowMessage(‘Valor menor ou igual a 0’);

Espero ter ajudando.

Até a próxima.

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

%d blogueiros gostam disto: