Fórum Como converter uma variavel String em Char #292083
18/08/2005
0
Estou atualmente trabalhando em uma função onde preciso extrair o código ASCII de um caracter seja ele letra ou numro e qdo uso a função ord() ele me diz que o tipo é incompativel, porém qdo uso a função ord() com uma variavel char ele funciona acontece que estou extraindo o caracter de uma string atravé da função copy() como no exemplo abaixo.
Function X : String;
var
Texto, Carac : String;
i : integer;
begin
Texto := ´S05XPEE0´;
for i:=0 to length(Texto) do
begin
Carac := Copy(Texto, i, 1);
ShowMessage(IntToStr(ord(Carac)));
end;
end;
Por favor se alguem puder ajudar ficarei muito grato.
Atenciosamente,
Tadeu Rodrigues de Oliveira
Números Informática
sistemas@numerosinformatica.com.br
Function X : String;
var
Texto, Carac : String;
i : integer;
begin
Texto := ´S05XPEE0´;
for i:=0 to length(Texto) do
begin
Carac := Copy(Texto, i, 1);
ShowMessage(IntToStr(ord(Carac)));
end;
end;
Por favor se alguem puder ajudar ficarei muito grato.
Atenciosamente,
Tadeu Rodrigues de Oliveira
Números Informática
sistemas@numerosinformatica.com.br
Numeros.info
Curtir tópico
+ 0
Responder
Post mais votado
18/08/2005
Como uma string é equivalente a um array of Char, você pode escrever assim......note que numa string de, por exemplo, 7 caracteres, o array de Char vai de 1 até 7; no código que você postou o loop estava partindo da posição 0.
Function X : String;
var
Texto: String;
I : integer;
begin
Texto := ´S05XPEE0´;
for I := 1 to Length(Texto) do begin
ShowMessage(IntToStr(Ord(Texto[I])));
end;
end;Massuda
Responder
Gostei + 1
Clique aqui para fazer login e interagir na Comunidade :)