delphi 字符串转unicode

{
关键字=字符串转unicode
采集软件=MKM - 我的知识管理
采集日期=2023-11-23 15:40:58
数字签名=B3496D7AE98FF3E2AF5BFD9BF43DDF24
}

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,
Dialogs, ExtCtrls, ComCtrls, StdCtrls, jpeg, Menus, Buttons;

uses
pngimage, Contnrs, strUtils, ShellAPI, FileCtrl, superobject;

procedure SaveUnicode(f: string; s: string; b: boolean = true);
var
ms: TMemoryStream;
hs: string;
ws: WideString;
begin
{字符串转unicode} if s = ‘’ then exit;
ms := TMemoryStream.Create;
if b then begin hs := #KaTeX parse error: Expected 'EOF', got '#' at position 3: FF#̲FE;
ms.Write(hs[1], 2);
end;
ws := WideString(s);
ms.Write(ws[1], Length(ws) * 2);
ms.Position := 0;
ms.SaveToFile(f);
ms.Free;
end;