program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type

 TEncodingHelper = class helper for TEncoding

  public

   function GetString1(const ABytes : array of Byte) : string;

 end;

 TEncodingEx = class(TEncoding)

  public

   function GetString2(const ABytes : array of Byte) : string;

 end;

{ TEncodingHelper }

function TEncodingHelper.GetString1(const ABytes : array of Byte) : string;
begin

 Result := '';

 SetLength(Result, Self.GetCharCount(@ABytes, Length(ABytes)));
 Self.GetChars(@ABytes, Length(ABytes), Pointer(Result), Length(Result));

end;

{ TEncodingEx }

function TEncodingEx.GetString2(const ABytes : array of Byte) : string;
begin

 Result := '';

 SetLength(Result, Self.GetCharCount(@ABytes, Length(ABytes)));
 Self.GetChars(@ABytes, Length(ABytes), Pointer(Result), Length(Result));

end;

var

 bytes : array [0 .. 1023] of Byte;

begin

 writeLn(TEncoding.ASCII.GetString1([ord('A'), ord('B'), ord('c')]));
 writeLn(TEncodingEx(TEncoding.UTF8).GetString2([ord('D'), ord('E'), ord('f')]));

 bytes[0] := ord('s');
 bytes[1] := ord('i');
 bytes[2] := ord('m');
 bytes[3] := ord('p');
 bytes[4] := ord('l');
 bytes[5] := ord('e');

 writeLn(TEncoding.ASCII.GetString1(Slice(bytes, 6)));
 writeLn(TEncodingEx(TEncoding.UTF8).GetString2(Slice(bytes, 6)));

 readln;

end.