(Delphi ActiveX) Unicode Escape

Convert a string to Unicode escaped values.

Note: The Unicode escape functionality was added in Chilkat v9.5.0.90.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

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
sb: TChilkatStringBuilder;
str: WideString;
charset: WideString;
success: Integer;

begin
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;