Fórum Rotina para Valores #233289
20/05/2004
0
Como posso pegar o valor de um dbgrid que está com a formatação de R$ 1.000,00 e conseguir o valor apenas numérico sem a máscara imposta.
Sei que poderia usar o valor da tabela, mas tem alguns momentos em que preciso fazer comparações entre os dois, ou somas de dbedits, e ele me dá o erro de não poder fazer conversão do valor, mesmo com o CurrToStr sendo usado.
Alguém tem alguma rotina para retirar os valores não numéricos do dbedit.
Uso Delphi 6 e Firebird 1
Sei que poderia usar o valor da tabela, mas tem alguns momentos em que preciso fazer comparações entre os dois, ou somas de dbedits, e ele me dá o erro de não poder fazer conversão do valor, mesmo com o CurrToStr sendo usado.
Alguém tem alguma rotina para retirar os valores não numéricos do dbedit.
Uso Delphi 6 e Firebird 1
Salupe
Curtir tópico
+ 0
Responder
Posts
20/05/2004
Fabio.hc
Tente assim:
function RemoveChar(Const Texto:String):String;
var I: integer;
S: string;
begin
S := ´´;
for I := 1 To Length(Texto) Do
if (Texto[I] in [´0´..´9´,´,´]) then
S := S + Copy(Texto, I, 1);
result := S;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
DBEdit1.Text:=removechar(DBEdit1.Text);
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)