Remover ponto de milhar de um componente Urgente
Prezado Sr(s)
Como faço para remover ponto de um número onde está no formato de milhar. Quero atribuir de um componente para uma variável do tipo EXTENDED mas não consigo. Aparece uma mensagem de erro.
Rogério
Como faço para remover ponto de um número onde está no formato de milhar. Quero atribuir de um componente para uma variável do tipo EXTENDED mas não consigo. Aparece uma mensagem de erro.
Rogério
Anonymous
Curtidas 0
Respostas
Fbsouza
28/03/2003
Ai vai uma Função para eliminar o separador de milhar
__________
function esmilhar(valor:string):string;
begin
while (pos(thousandseparator,valor)>0) do delete(valor,pos(thousandseparator,valor),1);
result:=valor;
end;
____
edit1.text:=esmilhar(edit1.text);
Espero ter ajudado.
8)
__________
function esmilhar(valor:string):string;
begin
while (pos(thousandseparator,valor)>0) do delete(valor,pos(thousandseparator,valor),1);
result:=valor;
end;
____
edit1.text:=esmilhar(edit1.text);
Espero ter ajudado.
8)
GOSTEI 0