Prblem mit UFT8

[test123]

Klassendefinition

Delphi-Quellcode:

    TTextStream = Class
    Private
      FStream:         TStream;
      FAccess:         TStreamAccess;
      FEncoding:       TEncoding;
.....

Aufruf Daten lesen

Delphi-Quellcode:

  Procedure TTextStream.Decode;
    Var P:      PChar;
      S, i, i2: Integer;

    Begin
      FStringBuffer := FEncoding.GetString(FByteBuffer);

Danach steht in FStringbuffer 'Aug 85' statt '8.85'