Foros Club Delphi - Tmem con una sola coma

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Tmem con una sola coma (https://www.clubdelphi.com/foros/showthread.php?t=43444)

baby	11-05-2007 09:40:55

Tmem con una sola coma

muy buenas
soy novato en eso de delphi y kiero hacer un ejercicio en la cual no se puede insertar mas de una coma en el control del mem aunque despues la primera coma puede haber otros caracteres(numeros,etc,.....):confused:
gracias de antemano compadres
un saludo a todos

rafita

11-05-2007 15:30:54

Hola,
eso parece sencillo, por ejemplo en el evento ONkeyPressed del campo, busca con un POS el caracter "," dentro del campo, si te devuelve una posición mayor que cero entonces ya hay uno.
En código debe ser algo parecido a esto:

Código:

procedure TForm1.Campo1(Sender: TObject; var Key: Char);

begin

  if Pos(Campo1.Text,',')>0 then // ya hay una coma

    key:=#0; // anulo la pulsación

end;

saludos

La franja horaria es GMT +2. Ahora son las 13:55:08.