Saludos amigos, aquí comparto mi rutina para validar de forma sencilla el ingreso de un conjunto personalizado de datos en un componente TEdit:
Código Delphi
[-]
function TFunciones.ValidarEntrada(Key:char; tipoEntrada: string):char;
begin
if tipoEntrada='SoloLetras' then
begin
if not (key in ['a'..'z','A'..'Z',' ', #7, #8, #13]) then Result := #0
else Result:=key;
end;
if tipoEntrada='SoloNumerosEnteros' then
begin
if not (key in [#8,'0'..'9','+','-',#13]) then Result:=#0
else Result:=key;
end;
if tipoEntrada='SoloNumerosDecimales' then
begin
if not (Key in ['0'..'9','.',#8]) then Result:=#0
else Result:=key;
end;
if tipoEntrada='LetrasYNumeros' then
begin
if not (Key in ['0'..'9','.','a'..'z','A'..'Z',' ', #7, #8]) then Result:=#0
else Result:=key;
end;
end;
Uso:
Código Delphi
[-]
procedure TfrmBuscaSuministro.txtBuscaSumKeyPress(Sender: TObject; var Key: Char);
begin
key:=cls.ValidarEntrada(Key, 'SoloNumerosEnteros');
end;
Si hubieran mejores propuestas por favor agradecería las sugerencias.
Atte