Club Builder

[pguzman]

Hola.
Tengo un TEdit en el que tengo que introducir un valor en euros, el tema es que:
-- solo reconozca números
-- reconozca la coma (y que si se escribe el punto ponga una coma)

Eso lo tengo solucionado, pero me falla si pongo dos comas ¿como puedo controlar que me permita poner una coma, pero si no hay otra ya puesta?
¿me explico?

void __fastcall TF_apunte::a_baseKeyPress(TObject *Sender, char &Key)
{
if(Key=='\b') //Para que reconozca también la tecla retroceso
{Key='\b';}
else
if((Key=='.')||(Key==','))
{Key=',';}
else
if((Key<'0')||(Key>'9'))
{Key=0;}
}
si escribo 333,44 bien, pero si pongo otra coma casca (mientras escribo realiza unos cálculos)

Pues eso, si alguien me puede ayudar, gracias.

[jaquemate]

Muy fácil: sólo tienes que buscar si la cadena ya contiene una coma y si es así, ignorarla:

[pguzman]

gracias, lo único que no valia era el Pos, lo he puesto asi y funciona:

if (a_base->Text.Pos(','))