Hallo,
Das hier würde ich als besser bezeichnen:
Delphi-Quellcode:
function HexStrToStr ( s:string ) : string;
var k,len : integer;
hexw : array[0..10] of char;
binw : array[0..10] of char;
begin
len := length ( s ) div 2;
setlength(Result, len);
for k := 1 to len do begin
hexw[0] := s[k*2-1];
hexw[1] := s[k*2];
hexw[3] := #0;
HexToBin ( hexw, binw, 10 );
Result[k] := char(binw[0]);
end;
end;
grüße, daniel
[EDIT]Schöner formatiert[/EDIT]