Could you make for me compatible with both 32/64 bits this asm code (now is x86 only), because I'm not familiar with Assembler

zusammenfalten · markieren

Delphi-Quellcode:

procedure ByteToHex(const AValue: Byte; Buffer: PAnsiChar);
asm
  JMP @@Convert
  @@HexTable:
    DB '0123456789ABCDEF';
  @@Convert:
    PUSH ECX // Invalid combination of opcode and operands
    XOR ECX, ECX
    MOV CL, AL
    SHR CL, 4
    MOV CL, @@HexTable.Byte[ECX] // Assembler instruction requires a 32bit absolute address fixup which is invalid for 64bit
    MOV BYTE PTR [EDX], CL
    MOV CL, AL
    AND CL, 0Fh
    MOV CL, @@HexTable.Byte[ECX] // Above error also here
    MOV BYTE PTR [EDX+1], CL
    POP ECX
end;

warum Assembler?
hast Du nicht genug mit Delphi und C++ zu tun


sysutils : IntToHex

You could try this code. It is even slightly faster than your assembler code if you activate the compiler's code optimization.

markieren

Delphi-Quellcode:

procedure ByteToHex(const AValue: Byte; Buffer: PAnsiChar);
const
  HexChars: array[0..15] of AnsiChar = '0123456789ABCDEF';
begin
  Buffer[0] := HexChars[AValue shr 4];
  Buffer[1] := HexChars[AValue and $F];
end;

This is very old procedure I found in past, it was faster than build-in routines, but if now Delphi can do it better the choice is simple, thanks buddies

Du weist aber das du in einem deutschen Forum bist, oder?

Zitat von Fritzew:

Du weist aber das du in einem deutschen Forum bist, oder?

In einem der besten Delphi-Foren überhaupt, denke ich. Da darf auch mal englisch geschrieben werden.

Zitat von sh17:

Zitat von Fritzew:

Du weist aber das du in einem deutschen Forum bist, oder?

In einem der besten Delphi-Foren überhaupt, denke ich. Da darf auch mal englisch geschrieben werden.

Definitiv.

Arf j'en français écris ainsi, alors ici aussi ?

Hallöle...

Zitat:

Du weist aber das du in einem deutschen Forum bist, oder?

...WojTec kommt aus Polen. Warum nicht? Englisch verstehen hier alle. (mehr oder weniger )

Zitat aus dem ersten Beitrag von 2009:

Zitat:

PS: I don't understand GER, only EN or PL.

Zitat:

Arf j'en français écris ainsi, alors ici aussi ?

...warum nicht? (Google Übersetzer befragt) Wenn du damit leben kannst das keiner antwortet weil er es nicht versteht.

Zitat von haentschman:

Zitat:

Arf j'en français écris ainsi, alors ici aussi ?

...warum nicht? (Google Übersetzer befragt) Wenn du damit leben kannst das keiner antwortet weil er es nicht versteht.

Ich kann es verstehen. Nur die Antworten würden wohl nicht auf französisch sein. Dafür ist es bei mir zu sehr eingerostet.