Delphi 10.1 Berlin UTF8String Test

Delphi 10.1 Berlin UTF8String Test

= UTF8Encode( Memo1.Lines.Add(UTF8Decode(s)); for i:=Low(s) to High(s) do</span><span style="color: #000000;"&gt; Memo1.Lines.Add(i.ToString </span>+ <span style="color: #800000;"&gt;'</span><span style="color: #800000;"&gt; : </span><span style="color: #800000;"&gt;'</span> + IntToHex(Ord(s[i]),<span style="color: #800080;"&gt;2</span><span style="color: #000000;"&gt;));

<span style="color: #0000ff;">end;