¿Cómo convertir un integer a hexadecimal?

[elmago00]

Gracias Nelson y ecfisa resolvieron gran parte de mi problema, ahora solo me queda una pregunta,

como puedo separar la cadena del Tedit en gruppo de 2.

por ejemplo :256312456892254 quisiera que quedara en string.

var1: 25
var2: 63

etc

e intentado pero solo puedo separarlo en array de char, pero los necesito en string, y debido que el TEdit no puedo usar identificador o separador, parar separar el string, se me dificulta y tampoco puedo especificar un valor, por que el usuario debe insertarlo.

si tienen tiempo para ayudarme con esto ultimo, se los agradecería mucho.

mil gracias por ayudarme siempre.

[[nlsgarcia]]

elmago00,

Empezado por elmago00

...como puedo separar la cadena del TEdit en grupos de 2...

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
   i : Integer;
   SL : TStringList;

begin

   SL := TStringList.Create;

   for i := 1 to Length(Edit1.Text) do
   begin
      if (i mod 2) = 0 then
         SL.Add(Copy(Edit1.Text,i-1,2));
   end;

   if (Length(Edit1.Text) mod 2) <> 0 then
      SL.Add(Copy(Edit1.Text,Length(Edit1.Text),1));

   ListBox1.Clear;

   for i := 0 to SL.Count - 1 do
      ListBox1.Items.Add(SL.Strings[i]);

   SL.Free;

end;

end.

El código anterior en Delphi 7 sobre Windows 7 Professional x32, permite dividir un número en grupos de 2, como se puede ver en la siguiente imagen:



Espero sea útil

Nelson.

[ecfisa]

Empezado por elmago00

como puedo separar la cadena del Tedit en gruppo de 2.

por ejemplo :256312456892254 quisiera que quedara en string.

var1: 25
var2: 63

etc

En ese caso creo que te conviene hacerlo a mano...

Código Delphi [-]
...
var
  s1,s2,s3,s4,s5,s6,s7,s8: string;


procedure TForm1.btnSepararClick(Sender: TObject);
begin
  with Edit1 do
  begin
    s1:= Copy(Text,1,2);
    s2:= Copy(Text,3,2);
    s3:= Copy(Text,5,2);
    s4:= Copy(Text,7,2);
    s5:= Copy(Text,9,2);
    s6:= Copy(Text,11,2);
    s7:= Copy(Text,13,2);
    s8:= Copy(Text,15,2);
  end;
  Edit2.Text:= Format('%s %s %s %s %s %s %s %s',[s1,s2,s3,s4,s5,s6,s7,s8]);
end;

Aunque logicamente, al ser un total de 15 caracteres, no es posible almacenar dos caracteres por variable ...

Saludos

[ecfisa]

Hola el mago00.

Para ampliar opciones, otro modo de asignar las duplas a las variables:

Código Delphi [-]
...
procedure HexToVars(HexStr: string; v: array of Pointer);
var
  c,i: Integer;
begin
  i:= Low(v);
  c:= 1;
  while i <= High(v) do
  begin
    string(v[i]^):= Copy(HexStr, c, 2);
    Inc(c, 2);
    Inc(i);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  v1,v2,v3,v4,v5,v6,v7,v8: string;
begin
  HexToVars('256312456892254', [@v1,@v2,@v3,@v4,@v5,@v6,@v7,@v8]);
  ShowMessage(Format('%s %s %s %s %s %s %s %s',[v1,v2,v3,v4,v5,v6,v7,v8]));
end;

Saludos

[Casimiro Noteví]

Muy ingenioso.

[elmago00]

muchas gracias el problema esta resuelto.