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

[Kedariodakon]

Es geibt einen String z.b. '4450' und rauskommen soll 'DP'

Meine Routine geht, aber das muß doch auch noch viel einfacher gehen oder?

Delphi-Quellcode:

Const HexDig: Array[ 0..15 ] Of Char = ( '0', '1', '2', '3', '4', '5', '6', '7',
                                         '8', '9', 'A', 'B', 'C', 'D', 'E', 'F' );

Function HexStringToString( Const Input: String ): String;
Var s:      String;
      i, j:   Integer;
      va, vu: Integer;
      c:      Char;
Begin
   va     := 0;
   vu     := 0;
   Result := '';
   s      := UpperCase( Input );
   For i := 1 To Length( s ) Do Begin
      c     := s[ i ];
      For j := 0 To 15 Do If HexDig[j] = c Then vu := j;
      If Not( ( i mod 2 ) = 0 ) Then Begin
         va  := ( vu Shl 4 );
      End Else Begin
         va  := va + ( vu );
         Result := Result + Chr( va );
      End;
   End;
End;

Bye