ANSI-Hex-String ---> Ansi-String

[Kedariodakon]

Was hällts du davon?

Delphi-Quellcode:

Function HexStrToStr( Input: String ): String;
Var      i:    Integer;
      Ch:   Char;
      HexW: Array[ 0..1 ] Of Char;
Begin
   Result        := '';
   For i := 1 To ( Length( Input ) Div 2 ) Do Begin
      HexW[ 0 ]   := Input[ i * 2 - 1 ];
      HexW[ 1 ]   := Input[ i * 2 ];
      HexToBin ( Hexw, @Ch, 2 );
      Result := Result + Ch;
   End;
End;

bye


Edit: Besser?