Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 02-08-2006
[FGarcia] FGarcia is offline
Miembro Premium
 
Registrado: sep 2005
Ubicación: Cordoba, Veracruz, México
Posts: 1.123
Poder: 20
FGarcia Va por buen camino
Conversion de Strings

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!

Última edición por FGarcia fecha: 02-08-2006 a las 02:54:58.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
showmessage y strings Elfoscuro Varios 1 19-04-2005 20:00:03
Problema con Strings chivofbv Varios 6 10-11-2004 17:00:53
Alinear Strings rjsitruiz Varios 12 13-07-2004 09:20:16
Copiar Strings mauro Varios 3 04-12-2003 21:22:48
Búsqueda de strings Descendents Varios 1 19-11-2003 19:41:22


La franja horaria es GMT +2. Ahora son las 07:54:45.


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
Copyright 1996-2007 Club Delphi