Coloque 2 edit´s e teste.
procedure TForm1.Edit1Exit(Sender: TObject);
var
l1 : char;
l2 : char;
n1 : shortint;
n2 : shortint;
begin
l1 := edit1.text[1];
l2 := edit1.text[2];
n1 := ord(l1);
n2 := ord(l2);
inc(n2);
if n2 > 90 then
begin
inc(n1);
n2 := 65;
end;
edit2.text := char(n1) + char(n2);
end;
Espero ter ajudado.
----- Original Message -----
From: "Michel Kafury Pael" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Friday, January 07, 2005 1:45 AM
Subject: [delphi-br] Incremento diferente
Bom pessoal, vou postar um problema que numca vi.
Em um edit a pessoa pode digitar AA, AB, AC até chegar a ZZ e eu
tenho um botão para verificar: quando for AA muda para AB; quando for
AB muda para AC e isso até ZZ. Não tenho idéia de como fazer.
Michel
--
<<<<< 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
