Lazarus Pascal

Unicode Escape

Convert a string to Unicode escaped values. Lazarus Pascal

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.StringBuilder;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  sb: TStringBuilder;
  str: string;
  charset: string;

begin
  success := False;

  sb := TStringBuilder.Create;

  str := 'bôn';
  charset := 'not_used';

  //  Unicode escape all chars using \uHHHH
  success := sb.SetString(str);
  sb.Encode('unicode-escape-all',charset);
  WriteLn(sb.GetAsString());
  //  Output is \u0062\u00f4\u006e

  //  Unicode escape only 8bit chars using \uHHHH
  success := sb.SetString(str);
  sb.Encode('unicode-escape-8bit',charset);
  WriteLn(sb.GetAsString());
  //  Output is b\u00f4n

  //  To use uppercase hex chars (A-F), add "-upper" to the encoding name
  success := sb.SetString(str);
  sb.Encode('unicode-escape-all-upper',charset);
  WriteLn(sb.GetAsString());
  //  Output is \u0062\u00F4\u006E

  //  Unicode escape all chars using \u{HHHH}
  success := sb.SetString(str);
  sb.Encode('unicode-escape-all-curly-upper',charset);
  WriteLn(sb.GetAsString());
  //  Output is \u{0062}\u{00F4}\u{006E}

  //  Unicode escape 8bit chars using HTML hex &#xH;
  success := sb.SetString(str);
  sb.Encode('unicode-escape-8bit-html-hex',charset);
  WriteLn(sb.GetAsString());
  //  Output is bôn

  //  Unicode escape all chars using HTML decimal &#D;
  success := sb.SetString(str);
  sb.Encode('unicode-escape-all-html-dec',charset);
  WriteLn(sb.GetAsString());
  //  Output is bôn

  //  Unicode escape all chars using u+HHHH
  success := sb.SetString(str);
  sb.Encode('unicode-escape-all-plus',charset);
  WriteLn(sb.GetAsString());
  //  Output is u+0062u+00f4u+006e

  //  Unicode escape 8bit chars using angled brackets <HHHH>
  success := sb.SetString(str);
  sb.Encode('unicode-escape-8bit-angle-upper',charset);
  WriteLn(sb.GetAsString());
  //  Output is b<00F4>n


  sb.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.