E aí Michel,
Como vou precisar de algo assim e hoje to meio folgado,
fiz uma funcao que converte um numero na sequencia que vc quer,
eu considerei o seguinte:
1 --> A
2 --> B
...
26 --> Z
27 --> AB
...
dessa forma vc pode usar um numero inteiro para guardar (ou gerar) a
sequencia normalmente, e na hora de mostrar vc usa a funcao abaixo, nessa
função vc passa o valor inteiro e ele te retorna o valor correspondente
naquela sequencia, repare que da forma que foi feito vc pode apenas mudando
a constante criar outros tipos de sequencia.
espero que sirva....
flw,
[]'s
Fabiano.
function IntToSequencia(i : integer) : string;
const s : string = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var
tam, iDiv, iMod : integer;
begin
result := '';
tam := length(s);
while i > tam do
begin
iDiv := i div tam;
iMod := i mod tam;
if iMod = 0 then
begin
iDiv := iDiv - 1;
iMod := tam;
end;
if iMod > 0 then
Result := s[iMod] + Result;
i := iDiv;
end;
if i > 0 then
Result := s[i] + Result;
end;
>From: "Michel Kafury Pael" <[EMAIL PROTECTED]>
>Reply-To: delphi-br@yahoogrupos.com.br
>To: delphi-br@yahoogrupos.com.br
>Subject: [delphi-br] Incremento diferente
>Date: Fri, 07 Jan 2005 03:45:27 -0000
>
>
>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
_________________________________________________________________
MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com
--
<<<<< 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
