Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 06-04-2011
Keiso Keiso is offline
Miembro
 
Registrado: ago 2004
Ubicación: Bolivia
Posts: 20
Poder: 0
Keiso Va por buen camino
Para la primera parte podría servirte este procedimiento:
Código Delphi [-]
procedure CommaTextToStrs( AStrs: TStrings;const Value: string ;const AchDelim : Char );
var
 P, P1     : PChar;
 S         : string;
 chDelim   : char ;
begin
 chDelim := AchDelim ;
 AStrs.BeginUpdate;
 try
  AStrs.Clear;
  P := PChar(Value);
  while P^ in [#1..' '] do
   P := CharNext(P);
  while P^ <> #0 do
   begin
    if ( P^ = '"' ) then
     S := AnsiExtractQuotedStr(P, '"')
    else
     begin
      P1 := P;
      while (P^ > ' ') and ( P^ <> chDelim ) do
       P := CharNext(P);
      SetString(S, P1, P - P1);
     end;
    AStrs.Add(S);
    while P^ in [#1..' '] do
     P := CharNext(P);
    if P^ = chDelim then 
     repeat
      P := CharNext(P);
     until not (P^ in [#1..' ']);
    end;  // while
  finally
   AStrs.EndUpdate;
  end;
end;

Su uso sería el como sigue:
Código Delphi [-]
var
Strs1: TStringList; // Donde estarán guardados tus HEX individuales
inStr: String;        // Tus HEX agrupados 0:10:8:0:E0:6:0:0:2:10:8:0:4:0:0:0

CommaTextToStrs( Strs1, inStr, ':' );
para lo segundo, supongo que con byte te refieres en decimales, esto es lo primero que encontré:

http://www.greatis.com/delphicb/tips...s-hex2dec.html

o para cambiar entre cualquier base este es un buen componente:

http://wenwen.soso.com/z/q156828058.htm

Última edición por ecfisa fecha: 06-04-2011 a las 04:11:18. Razón: ETIQUETAS: [DELPHI] [/DELPHI]
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
Como convertir un string a un array de byte K-ba Varios 2 13-02-2011 23:27:07
File of Byte kdemia Varios 2 27-05-2010 19:21:36
Pasar string a byte Novás Varios 6 27-11-2007 20:18:38
de BYTE a STRING emeceuy Varios 3 20-08-2004 16:29:32
ADO: Byte nulo (byte #0) en un string Pandre Conexión con bases de datos 0 02-04-2004 20:18:37


La franja horaria es GMT +2. Ahora son las 00:06:28.


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