Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   como obtener el codigo ascii de una cadena? (https://www.clubdelphi.com/foros/showthread.php?t=79735)

usuario87 06-08-2012 03:27:53

como obtener el codigo ascii de una cadena?
 
trate de obtener el codigo ascii de una letra que esta dentro de una variable cadena de la siguinte forma:

Código Delphi [-]
 
var
  Cadena: string;
  Cod: DWORD;
begin
  cadena:='a';
  Cod:=Ord(Cadena);
  Form1.Caption:=IntToStr(Cod);


y me sale error : incompatible types

usuario87 06-08-2012 03:41:36

hola, disculpen ya lo solucione de esta forma:

Código Delphi [-]

var
  Cadena: string;
  Cod: BYTE;
begin
  SetLength(Cadena,1);
  //cadena:='a';
  Cod:=Ord(Cadena[1]);
  Form1.Caption:=IntToStr(Cod);

Gerson12 06-08-2012 03:45:51

amigo disculpa que tienes pensado hacer xD si no fuera mucha molestia

roman 06-08-2012 06:05:22

Cita:

Empezado por usuario87 (Mensaje 438868)
hola, disculpen ya lo solucione de esta forma:


var
Cadena: string;
Cod: BYTE;
begin
SetLength(Cadena,1);
//cadena:='a';
Cod:=Ord(Cadena[1]);
Form1.Caption:=IntToStr(Cod);

Hola, bienvenido a los foros del ClubDelphi. En lo sucesivo, te pido que uses las etiquetas adecuadas para tu código. En esta caso, podrías haber usado la etiqueta [delphi]

Por otra parte, no es necesario usar SetLength, basta que pongas:

Código Delphi [-]
Cod := Ord(Cadena[1]);

// Saludos

Neftali [Germán.Estévez] 06-08-2012 09:18:36

Recuerda utilizar TAG's cuando escribas código. Se lee mucho mejor.
Un saludo.

usuario87 10-08-2012 05:34:41

gracias, no olvidare poner las etiquetas xD.


La franja horaria es GMT +2. Ahora son las 22:31:04.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi