Validar Ingreso De Letras En Un Edit

[sdiaz1983]

Lo que quiero hacer es que solo me admita ingresar letras en el edit, no combinaciones por ejemplo de letras con numeros ó letras con caracteres distintos solo letras .

[MaMu]

Empezado por sdiaz1983

Lo que quiero hacer es que solo me admita ingresar letras en el edit, no combinaciones por ejemplo de letras con numeros ó letras con caracteres distintos solo letras .

SOLUCION


Saludos

[sdiaz1983]

Mil Gracias Uan Vez Mas, Intentar Este Codigo, Cualquier Cosa Le Aviso.

Gracias

[[BlueSteel]]

solo queria mencionar que la JVCL tiene un componente que realiza lo que tu necesitas.. tanto para numero como letras

Paleta Jv Edits

Componente TJvValidadeEdit y TJvEdit

Salu2

[sdiaz1983]

Una Pregunta, Este Componente Del Que Habla Ya Se Encuentra En Delphi O Toca Descargarlo, Si Se Encuentra Por Favor Digame En Donde Y Si Toca Descargarlo Por Favor Indiqueme Todo Para Poderlo Descargar.

Mil Gracias Una Vez Mas A Usted Y A Todos.

Dios Los Bendiga

[sdiaz1983]

Compañeros del foro, quiero mostrarles el codigo de la clase que les comente, ya me funciona, de todos modos una vez mas mil gracias a todos y que Dios los proteja a ustedes por su paciencia, mil gracias.

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.