Buenas tardes, me podrian apoyar con esta sentencia, quiero validar un campo en el cual si el usuario escribe cualquier ya sea caracter o string de texto despliegue un mensaje. Debe admitir únicamente números ya sea enteros o decimales.
Código Delphi
[-]procedure Tfcapturact.copau1Exit(Sender: TObject);
begin
if copau1.text in ['a*'..'z*']then
begin
application.messagebox('error',
'Error',mb_iconwarning);
end
else begin end;
end;
Gracias por su tiempo y apoyo.