Saludos.
Creo sinceramente que pregunto demasiado, pero no tengo más remedio.
O no me entero de cómo se busca en los foros mensajes ya escritos, o sencillamente no están las consultas que yo hago, bueno creo que soy yo el que busca mal, en fin si alguien considera que soy un poco pesado ruego me lo haga saber y pediré mil disculpas.
Gracias.
Mi problema es el siguiente:
Necesito introducir en un Edit solo números una coma y solo dos decimales no mas.
Ejemplo 12345,00
El código para introducir números y cambiar el punto por la coma lo he encontrado y funciona perfecto, es este.
Código Delphi
[-]
procedure TF_Cuentas.Edit1KeyPress(Sender: TObject; var Key: Char);
Var i: Integer;
begin
i:=0;
if ( StrScan('0123456789.'+chr(7)+chr(8), Key) = nil ) then Key := #0;
if key = '.' then key := ',';
for i := 1 to length(Edit1.Text) do
if ( copy(Edit1.Text,i,1) = ',' ) and not ( StrScan(',', Key) = nil ) then Key := #0;
end;
Solo falta que después de la coma solo se introduzca dos decimales.
¿Es esto que pido posible?
Gracias.