Cpp nach Delphi übersetzung

[Sir Rufo]

Zitat:

Zitat von mensch72 (Beitrag 1320420)

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.

[Horst0815]

Danke für alle Tips und Vorschläge

[mensch72]

..."Meinst du so etwas?"...

:) ja genau sowas meinte ich... damit kann ich meinen Code etwas mit Delphi-Like bekommen