Cpp nach Delphi übersetzung

[Sir Rufo]

Zitat von mensch72:

Sollte es jemanden geben, der die paar Zeilen mit TEncoding für UniCodeString<->UTF8ByteArray griffbereit oder im Gedächtnis hat, wäre das auch hier sicher helfen

Meinst du so etwas?

Delphi-Quellcode:

program dp_187166;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.Generics.Collections,
  System.SysUtils;

function PByteArrayToString( const Data: PByteArray; const DataCount: Integer; const Encoding: TEncoding ): string;
var
  buffer: TBytes;
begin
  SetLength( buffer, DataCount );
  TArray.Copy<Byte>( Data^, buffer, DataCount );
  Result := Encoding.GetString( buffer );
end;

procedure Main;
const
  expectedStr = 'foobar';
var
  buffer   : TArray<Byte>;
  actualStr: string;
begin
  buffer    := TEncoding.UTF8.GetBytes( expectedStr );
  actualStr := PByteArrayToString( @buffer[ 0 ], Length( buffer ), TEncoding.UTF8 );
  Assert( actualStr = expectedStr );
end;

begin
  try
    Main;
  except
    on E: Exception do
      Writeln( E.ClassName, ': ', E.Message );
  end;

end.