Buscar por:

Contando carateres na string função length(string)

Código

{O problema era que eu queria fazer uma consuta por UF (Unidade federativa) com isso o usuario não podia digitar mais de duas letras, veja como foi resolvido}

procedure TForm1.Button1Click(Sender: TObject);

Var Pesq:string;

begin

  Pesq:='';

      InputQuery('Pesquisa por UF','Digite a UF',pesq);

     {se a strinf tiver mais de duas letras} 

     if Length(Pesq) > 2 then//Length conta a quantidade de caractere na

                                          //string até os espaço em branco

      begin

      ShowMessage('A unidade fedarativa só pode conter duas letras');

      Abort;

      end;//se so tiver duas letras use um else e coloque seu comando

//abraço e espero ter ajudado

 end;