Delphi dicas

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

{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;

por : Jaime Almeida Abreu Júnior