Saludos amigos del foro, disculpen la molestia, yo estuve trabajando con C# cree una rutina para validaciones de datos, me podran ayudar como lo paso a Lasarus, soy principiante en esto:
//Funcion Multiple para Validar si se Acepta un Entero, Decimal o Alfanumérico
//Como se accesa:
//e.Handled = !libreria.IsValidChar(e.KeyChar, libreria.ValueType.Entero);
//e.Handled = !libreria.IsValidChar(e.KeyChar, libreria.ValueType.Decimal, txtPrecio.Text);
//e.Handled = !libreria.IsValidChar(e.KeyChar, libreria.ValueType.Alfanumérico);
public enum ValueType { Entero, Decimal, Alfanumérico }
public static bool IsValidChar(char e, ValueType tipo, string texto = null) {
if (tipo == ValueType.Decimal) {
var decimalSeparator =
System.Threading.Thread.CurrentThread.CurrentCulture.NumberFormat.NumberDecimalSeparator;
return (char.IsDigit(e) || char.IsControl(e) || ((e.ToString() == decimalSeparator) && !texto.Contains(decimalSeparator)));
}
else if (tipo == ValueType.Entero {
return (char.IsDigit(e) || char.IsControl(e));
}
return true;
}