Hallo,
ich versuche gerade Hexwerte in Strings umzuwandeln.
Folgendes habe ich bisher ausprobiert:
Delphi-Quellcode:
function HexStringToStr(s : string):string;
begin
if s = '' then
Result := ''
else
begin
if Odd(length(s)) then
s := '0'+s;
SetLength(Result, Length(s) div 2);
HexToBin(Pchar(s), PChar(Result), Length(Result));
end;
end;
Procedure TForm1.Button1Click(Sender: TObject)
begin
HexStringToStr('01010005200B000D600200000100012806050000000205000D6002000101000560');
end;
Sowas kommt dabei raus:
Was mache ich falsch?