Transformar String em Código ASC

Delphi

30/11/2003

Turma,
é o seguinte

tenho um campo string e quero obter o código asc desse string...
ex.:

var
nome : string;
begin
nome := ´Andeson´;
end;
dai quando eu clicar no button pegar todo código asc desse nome.

Alguém pode me ajudar ???
já sei como faz para capturar o código quando teclo. mais não depois de digitado...

desde já agradeço. 8)


Ajmsistemas

Ajmsistemas

Curtidas 0

Respostas

Cebikyn

Cebikyn

30/11/2003

Deve funcionar:

var
  x: Integer;
  Str: String;
begin
  for x:=0 to Length(Nome) do begin
    str:= str+IntToStr(Ord(Nome[x]))+´ ´;
  end;
end;

Após este código a variável Str conterá os códigos ASCII de todos os caracteres da variável Nome, separados por um espaço.


GOSTEI 0
POSTAR