OS caracteres de A a Z são uma seqüência numérica decimal na TABELA ASCII,
portanto podes usar
Var c: Byte;
C := Ord('A');
Inc(c);
O caracter vc encontra em Chr(c);
Atenciosamente
-----Mensagem original-----
De: jmourajr2000 [mailto:[EMAIL PROTECTED]
Enviada em: quarta-feira, 9 de fevereiro de 2005 09:06
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Como criar uma Progressão Alfabética
Caros amigos, bom dia!
Estou necessitando criar uma Progressão Alfabética, onde:
Tenho um Número de Protocolo(Integer) e preciso incrementar a este
Protocolo uma letra(de A a Z), dependendo da quantidade ou número de
vezes que o cliente usar um determinado Protocolo.
Sei que terei que mudar o campo, na tabela, de Integer para String,
ou criar um campo adicional para isso. Mas como faço para incrementar
essa Progressão?
Com um Integer faço assim:
X : Integer
X := X + 1;
Agradeço a atenção e abraços a todos.
José de Moura
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
