Código Delphi
[-]
unit numerov;
interface
uses Classes, DBTables, QControls, SysUtils,Windows, Messages, Variants,Graphics, Controls, Forms, Dialogs, StdCtrls;
Type
Tnumerov= class(TWidgetControl)
private
Num: String;
public
property nume: String read Num write Num;
procedure validarn(numero: String);
end;
implementation
procedure Tnumerov.validarn(numero:String);
Begin
Num:=numero;
if(numero='0') then
showmessage('ES UN NUMERO ENTRE 0 Y 9')
else
showmessage('NO ES UN NUMERO');
End;
end.
Señores del Foro tengan un buen dia.
El motivo de la consulta es la siguiente.
En el codigo anterior (que es un ejemplo) he elaborado una clase para que me valide si el numero que he ingresado es un cero.
Para otro proyecto que estoy haciendo necesito crear dos clases, una que me valide si el dato que he ingresado es un numero pero sin un intervalo definido y por otro lado otra clase que me valide si lo que he ingresado es una cadena de caracteres, he tratado por varios lados pero no se como hacerlo.
Agradezco su ayuda.
Cordialmente
Sergio Diaz