Formato R$ Do Maskedit

[Renato_agito10]

Estou com um pequeno problema: Coloquei um campo maskedit e coloque a mascara como: R$ 00,00 e quando eu mando salvar ele da pau, já removi o salvamento de caracteres da mascara mas continua dando pau, este campo é p/ ser salvo em uma tabela do access num campo money... quem tiver uma solução eu estarei agradecido...

[Progr'amador]

Olá Renato,

Como você ta tirando a mascara?

Posta ae o código que você ta usando, Ok?

Abs. Progr'amador.

[Renato_agito10]

O codigo que eu estou usando é:

modulo.venda.paremetrs('Valor'):=maskedit1.text;

e ta indo os caracteres da mascara junto ai como o campo é de moeda não aceita ai ta dando pau você tem alguma solução???

[Renato_agito10]

Olá Renato,

Como você ta tirando a mascara?

Posta ae o código que você ta usando, Ok?

Abs. Progr'amador.

O codigo que eu estou usando é:

modulo.venda.paremetrs('Valor'):=maskedit1.text;

e ta indo os caracteres da mascara junto ai como o campo é de moeda não aceita ai ta dando pau você tem alguma solução???

[Progr'amador]

Olá Renato,

não é muito aconselhado a usar esse tipo de mascara, vamos supor que você tenha que inserir um valor maior que a mascara, tipo: 100,00, ai não tera como já que sua mascara é R$ 00,00, mas ae vai uma dica pra tirar essa mascara jogando o valor pra uma variável (n) que ae você pode enviar pra tabela.

procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
    s : string;
    n : Real;
begin
  for i := 1 to Length(MaskEdit1.Text) do
     if (Copy(MaskEdit1.Text,i,1) <> 'R') and
        (Copy(MaskEdit1.Text,i,1) <> '$') and
        (Copy(MaskEdit1.Text,i,1) <> ' ') then
           s := s + (Copy(MaskEdit1.Text,i,1));
           n := StrToFloat(s);
end;

Abs. Progr'amador.