Hola, Saludos a todos!
MMM... Ya se que en el grupo se ha hablado de este tema de las conversiones pero no he encontrado o no he entendido una respuesta al tema que planteo. Este codigo:
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := IntTostr(strtoint(edit1.Text ));
end;
Funciona perfecto si lo que quiero convertir es una cadena de Numeros (1,9,12,456,8900,100000, etc), pero si lo que quiero es convertir en un valor entero una cadena como: C, ST, Hx o similar aparece un mensaje de error que me dice que lo que se ingreso no es un entero valido -creo que es logico- entonces lo que deberia de hacer es obtener su codigo ASCII y he aqui la pregunta ¿Eso como se hace? CHAR solo acepta un caracter, CHR no me acepta el contenido de un string o de un edit1.text ¿que tipo debo usar aqui? El resultado final deberia ser :
1 = 49; 5 = 53; 10 = 49 48; ST = 83 84; Hx = 72 120 y asi segun lo que el usuario ingrese.
Espero haberme dado a entender pero si no avisenme. Gracias por su tiempo y ayuda.
EDITADO:
Encontre este hilo
http://www.clubdelphi.com/foros/show...nvertir+string y lo modifique asi:
procedure TForm1.Button2Click(Sender: TObject);
var
i: integer;
cadena: string;
total: integer;
c: string;
begin
total := 0;
cadena := 'Bienvenido al ClubDelphi';
for i := 0 to Length(cadena) do
//total := total + Ord(cadena[i]);
c := c + ' ' + IntToStr(Ord(cadena[i]));
//ShowMessage(IntToStr(total));
ShowMessage(c);
end;
y funciona perfectamente como queria. Siguiendo el orden de ideas -no creo que sea para otro hilo- ¿como se podria "ver" un codigo de control? es decir los primeros 31 caracteres de la tabla ASCII.(NUL, SOH, STX, ETX..CR, LF,..US) Gracias nuevamente por la ayuda!