Delphi ActiveX

Unicode Escape

Convert a string to Unicode escaped values. Delphi ActiveX

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
sb: TChilkatStringBuilder;
str: WideString;
charset: WideString;

begin
success := 0;

sb := TChilkatStringBuilder.Create(Self);

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

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

// Unicode escape only 8bit chars using \uHHHH
success := sb.SetString(str);
sb.Encode('unicode-escape-8bit',charset);
Memo1.Lines.Add(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);
Memo1.Lines.Add(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);
Memo1.Lines.Add(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);
Memo1.Lines.Add(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);
Memo1.Lines.Add(sb.GetAsString());
// Output is bôn

// Unicode escape all chars using u+HHHH
success := sb.SetString(str);
sb.Encode('unicode-escape-all-plus',charset);
Memo1.Lines.Add(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);
Memo1.Lines.Add(sb.GetAsString());
// Output is b<00F4>n
end;