Código Delphi
[-]
unit valletra;
interface
uses Classes, DBTables, QControls, SysUtils,Windows, Messages, Variants,Graphics, Controls, Forms, Dialogs, StdCtrls;
Type
Tvalletra= class(TWidgetControl)
private
letr: String;
bandera: Integer;
public
property letra: String read letr write letr;
property band: Integer read bandera write bandera;
procedure validarn(letra: String);
end;
implementation
procedure TValletra.validarn(letra:String);
var b: String;
var i: Integer;
var c: Integer;
begin
letr:=Letra;
bandera:=c;
c:=0;
for i:=1 to length(letra) do
begin
if not ((letra[i] in ['a'..'z'])or (letra[i] in ['A'..'Z'])) then
begin
c:=c+1;
end;
end;
bandera:=c;
if(c<>0) then
MessageDlg('INGRESO INCORRECTO',mtError,[mbOk],0);
end;
end.
Muy buenos dias compañeros del foro.
Resulta que la clase qu eesta arriba me valida si en el edit (evento onchange) lo que le ingreso son letras, de lo contrario me bota un error, pero el problema que tengo es que el error me lo bota tambien cuando oprimo la tecla retroceso y la tecla de espacio, lo que les queria pedir el favor es si ustedes me pueden ayudar diciendome como hago para que no me bote el error cuando oprimo esas dos teclas.
Mil gracias por su ayuda una vez mas.
Cordialmente,
SERGIO DIAZ