asci in Integer!!

[Kedariodakon]

Sowas in der Art sollte es tun...

Delphi-Quellcode:

Function  OrdStrToChrStr( Const sOrd: String ): String;
Var len:    Integer;
    i:      Integer;
    iOut:   Integer;
    sPart:  String;
Begin
  Result  := '';
  len     := Length( sOrd );
  i       := 1;
  While i <= Len Do Begin    
    If i = Len Then Begin
      sPart := sOrd[ i ];
      Inc( i );
    End Else Begin
      sPart := sOrd[ i ] + sOrd[ i +1 ];
      Inc( i, 2 );
    End;
    If TryStrToInt( sPart, iOut ) Then Result  := Result + Chr( iOut )
    Else                               Raise Exception.Create( 'No int: "' + sPart + '"' );
  End;
End;

Bye Christian

Edit: Funktionsnamen geändert...