[提问] 在Delphi或VB的程序里面怎么将这些符号显示出来☻☺♀♂☼♠♣♥♦♫

Question

这些符号除了♀♂可以显示以外，其他都不能正常显示，为?他们的unicode的范围是【$263A~~~$266B】
可以用字符映射器看到，选择英文字符如Arial反正就是如果汉字字体库没有包括的unicode全部都是显示?，怎么解决啊或者在unicode编码的别的位置可以找到他们，请帮帮忙咯。

Answer 1

function  TForm1.WideStringToDisplay(mWideString:  WideString):  string;
var
  I: Integer;
  S: string;
begin  
  Result := '';
  S := '';
  for I := 1 to Length(mWideString) do
  begin
    if Ord(mWideString[I]) in [32..127] then S := S + mWideString[I]
    else
    begin
      if S <> '' then
      begin
        Result := Result + QuotedStr(S);
        S := '';
      end;
      Result := Result + Format('#%d', [Ord(mWideString[I])]);
    end;
    if S <> '' then  Result := Result + QuotedStr(S);
  end;
end;  {  WideStringToDisplay  }function  TForm1.DisplayToWideString(mDisplay:  string):  WideString;
var  
  I: Integer;
  S: string;
  B: Boolean;
begin  
  Result := '';
  B := False;
  mDisplay := mDisplay;
  for I := 1 to Length(mDisplay) do
    if B then
      case mDisplay[I] of
      '''':
        begin
          if S <> '' then Result := Result + StringReplace(S,'''''','''',[rfReplaceAll]);
          if Copy(mDisplay,I + 1,1) = '''' then Result := Result + '''';
          S := '';
          B := False;
        end;
      else S := S + mDisplay[I];
      end
    else
      case mDisplay[I] of
      '#', '''':
        begin
          if S <> '' then Result := Result + WideChar(StrToIntDef(S,0));
          S := '';
          B := mDisplay[I] = '''';
        end;
      '$', '0'..'9', 'a'..'f', 'A'..'F':
        S := S + mDisplay[I];
    end;
  if (not B) and (S <> '') then Result := Result + WideChar(StrToIntDef(S,0));
end;  {DisplayToWideString }