Mi rutina para validar ingreso de datos

[Neftali [Germán.Estévez]]

Empezado por darkamerico

Saludos amigos, aquí comparto mi rutina para validar de forma sencilla el ingreso de un conjunto personalizado de datos en un componente TEdit:
Si hubieran mejores propuestas por favor agradecería las sugerencias.

Gracias.

[cloayza]

Si me lo permiten, propongo una pequeña variante...

Código Delphi [-]

function TFunciones.ValidarEntrada(Key: Char; Tipo: TTipoEntrada): Char;
const
  ACheckingKey:Array[TTipoEntrada] of String=('abcdefghijklmnopqrstuvwxyz'+#7+#8+#9,
                                           '0123456789+-'#8+#13,
                                           '0123456789.'+#8,
                                           '0123456789abcdefghijklmnopqrstuvwxyz '+#7+#8);
begin
  result:=#0;
  if Pos(lowercase(key), ACheckingKey[Tipo])>0 then
     result:=Key;
end;

Saludos cordiales

[darkamerico]

Interesantes ideas chicos, felicitaciones a todos.