Auto Incremento com Letra

Delphi

29/09/2012

Olá galera!

Em geral a minha dúvida é a seguinte: Como fazer um auto incremento com letras de A até Z (somente maiúsculas)?

Tente o seguinte código:


// Dessa forma funciona... mas se eu colocar um Label no lugar do Ord('A')
procedure TForm1.Button1Click(Sender: TObject);
var
  n: Byte;
begin
  n := Ord('A'); // RETORNA 65 QUE É O CERTO
  inc(n);
  Label1.Caption := char(n);
end;



 procedure TForm1.Button1Click(Sender: TObject);
var
  n: Byte;
begin
  n := Ord(Label1.Caption); // Label1.Capiton = 'A' mesmo assim me retorna 52!? De onde é esse 52??? é pra retorna 65... wtf!!!
  inc(n);
  Label1.Caption := char(n);
end;


Grato desde já!
Romario Melo

Romario Melo

Curtidas 0

Respostas

Marco Salles

Marco Salles

29/09/2012


var
n: Byte;
begin
n := Ord(Label1.Caption[1]); // Label1.Capiton = 'A' mesmo assim me retorna 52!? De onde é esse 52??? é pra retorna 65... wtf!!!
dec(n);
Label1.Caption := char(n);
end;


[]sds
GOSTEI 0
Romario Melo

Romario Melo

29/09/2012

[ Resolvido ]
vlw Marcos... consegui ao mesmo tempo!!!
GOSTEI 0
POSTAR