Datentypen von String zu Byte und wieder zurück

[Uwe Raabe]

Zitat von Graw:

Ist es so besser?

Welche Delphi-Version und welche Zielplattform?

[Graw]

Delphi 2010 Windows 7

[Michael II]

Hallo Graw,

du weisst doch wie man in der IDE den Debugger nutzt?

Du kannst damit bequem Zeile für Zeile durch dein Programm steppen und dabei beobachten wie sich die Werte deiner Variablen ändern und findest den/die Fehler in deinem Code so sicher sehr rasch.

In deinem Fall überwache die Ausdrücke PBuf, PBuf10, PBuf20 und setze einen Breakpoint bei deiner ersten Zeile und lass es laufen .

[Olli73]

PBuf1 := Copy(PBuf10,13,Length(PBuf10)-15); Edit: Habe übersehen, dass das schon oben steht.

[Luckie]

Warum nimmst du nicht einfach zwei Variablen, in denen du das erst mal zwischenspeicherst. Das macht den Code auch übersichtlicher.

[Graw]

Hat nun doch alles geklappt. Hatte meine Strings nicht richtig geschnitten.

Vielen Dank.

[Blup]

Ein anderer Weg, mit reinem Assembler geht das natürlich noch kompakter:

Delphi-Quellcode:

function Rol(const AValue: LongWord; const ACount: Byte): LongWord; register;
asm
  mov cl, dl
  rol eax, cl
end;

function IntConvert(A, B: LongWord): Int64;
var
  i: integer;
begin
  Result := 0;
  for i := 0 to 31 do
  begin
    Result := Result shl 1;
    B := Rol(B, 1);
    Result := Result or (B and $00000001);

    Result := Result shl 1;
    A := Rol(A, 1);
    Result := Result or (A and $00000001);
  end;
end;

function Convert(const A, B: string): string;
var
  aa, bb: LongWord;
begin
  aa := StrToInt('$' + A);
  bb := StrToInt('$' + B);
  Result := IntToHex(IntConvert(aa, bb), 16);
end;

[himitsu]

Delphi-Quellcode:

  for i := 0 to 31 do
  begin
    Result := Result shl 1;
    B := B shl 1;
    Result := Result or (B shr 31);

    Result := Result shl 1;
    A := A shl 1;
    Result := Result or (A shr 31);
  end;