洁面乳怎么转换为中文

Question

洁面乳怎么转换为中文

Answer 1

LZ，你的洁面乳是什么码？
随便说的数字，我们也不知道有什么规律哦

Answer 2

function TForm1.ToUnicodeStr(const asUnicodeHex: string): string;
var
  i: Integer;
  sTemp: string;
begin
  for i := 1 to Length(asUnicodeHex) do
  begin
    if asUnicodeHex[i] = '#' then
    begin
      sTemp := Copy(asUnicodeHex, i + 1, 5);
      sTemp := WideChar(StrToIntDef(sTemp, 0));
      Result := Result + sTemp;
    end;
  end;
end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  posX:integer;
  SourceStr,ResultStr:string;
begin
  SourceStr:='洁面乳';
  SourceStr:=StringReplace(SourceStr,'&#','',[rfReplaceAll]);  while true do
  begin
    posX:=pos(';',SourceStr);
    ResultStr:=ResultStr+Widechar(StrToInt(Copy(SourceStr,1,posX-1)));
    delete(SourceStr,1,posX);
    if SourceStr='' then
       Break;
  end;
  showmessage(ResultStr);//结果是洁面乳?
end;