Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 11-05-2007
Wellnic Wellnic is offline
Miembro
 
Registrado: mar 2007
Posts: 70
Poder: 20
Wellnic Va por buen camino
Cita:
Empezado por mjjj
la variable S, es una cadena larga, compuesta por numero hexadecimales, de donde saco el valor que necesito de la posicion 8. v4 es integer.
...O sea, la variable S contendría algo así: 'F4D245CDAFDDABD5477D'..., ¿no? Entonces, para sacar el valor de la posición 8:

v4:= StrToInt('$'+copy(S, (8*2)-1, 2));

que daría 213, valor decimal de D5.

Última edición por Wellnic fecha: 11-05-2007 a las 20:56:20.
Responder Con Cita
  #2  
Antiguo 11-05-2007
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.572
Poder: 27
egostar Va camino a la fama
Haber si te sirve esto

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
  Entero: integer;
  S,v4: string;
begin
  S := 'F4D245CDAFDDAB41477D';
  v4 := '$'+copy(S, (8*2)-1, 2);
  Entero := StrToInt(v4);
  ShowMessage(v4+'-->'+InttoStr(Entero)+'-->'+Char(Entero));
end;

Edito: Que realmente es lo mismo que te había propuesto seoane.

Salud OS.
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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
funcion Ascii ? Coco_jac Varios 4 30-11-2005 18:45:21
Ascii ?? torito Varios 2 08-04-2005 20:09:36
código ascii davidgaldo Varios 5 10-11-2004 23:16:07
enviar ascii 127 ingel Varios 1 27-01-2004 18:00:10
Conversión de fichero en ASCII a Paradox apunto Conexión con bases de datos 1 24-06-2003 14:56:09


La franja horaria es GMT +2. Ahora son las 06:47:23.


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