Delphi - Formato numerico

   
Vista:

Formato numerico

Publicado por Dario (29 intervenciones) el 07/10/2010 02:54:38
Como hago para que un Edit solo hacepte formato numerico y no letras
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Formato numerico

Publicado por Eva (484 intervenciones) el 08/10/2010 00:42:36
En el evento OnKeyPress del edit

procedure TFContabilidad.EMetalicoKeyPress(Sender: TObject; var Key: Char);
var
i : integer;
begin
//controlar entrada solo números
if ( StrScan('0123456789.,'+chr(7)+chr(8), Key) = nil ) then Key := #0;
//cambiar punto decimal por coma
if key = '.' then key := ',';
//controlar entrada una sola coma
for i := 1 to length(EMetalico.Text) do
if ( copy(EMetalico.Text,i,1) = ',' ) and not ( StrScan(',', Key) = nil ) then Key := #0;
end;

...

De nada.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar