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;
public
property letra: String read letr write letr;
procedure validarn(letra: String);
end;
implementation
procedure TValletra.validarn(letra:String);
var i: integer;
var b: String;
begin
letr:=Letra;
for i:=1 to length(letra) do
begin
if ((letra[i] in ['a'..'z'])and (letra[i] in ['A'..'Z'])) then
b:='Verdadero'
else
b:='Falso';
end;
showmessage(''+b+'');
end;
end.
Buen dia.
En el codigo que les adjunto estoy intentando de elaborar una clase que me valide si le ingreso letras el valor de b (tipo String) retorne verdadero, de lo contrario b sea falso, recorriendo cada letra por medio de un ciclo.
El problema que tengo es haciendo pruebas de que valor me retorna b, siempre me retorna Falso, ya sea si el ingreso letras o no, quisiera por favor si me pueden ayudar que error tengo, o que correcciones me sugieren con respecto a esa clase.
Mil Gracias
Sergio