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

[SoftWare1999]

这些符号除了♀♂可以显示以外，其他都不能正常显示，为?

他们的unicode的范围是【$263A~~~$266B】
可以用字符映射器看到，选择英文字符如Arial

反正就是如果汉字字体库没有包括的unicode全部都是显示?，怎么解决啊

或者在unicode编码的别的位置可以找到他们，请帮帮忙咯。

[SoftWare1999]

最新发现，在一台XP系统的机器上面可以正常显示，但是我的2000系统却不能，为什么啊？

[readersm68]

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 }