显示出来的是一个问号,就是是显示出来的是乱码?请问怎样解决?

解决方案 »

  1.   

    delphi帮助的About里有这个符号,查看这串字的类名为TWideMemo,VCL里既然有这个控件,为何找不到呢?
      

  2.   

    delphi控件的caption,text一类的都是string类型的,#174是Unicode编码
    楼主参考下下面这篇文章
    http://blog.csdn.net/sinkay/archive/2005/09/08/475223.aspx
      

  3.   

    我也知道有TNT控件,但是我的实际情况决定了我不能使用这套控件
      

  4.   

    好象只有类似TNT的组件才能解决这个Unicode的问题。
      

  5.   


    procedure TForm1.Button1Click(Sender: TObject);
    const
      ss: array[0..1] of WideChar = (#174, #0);
    var
      g: TGpGraphics;
      font: TGpFont;
      brush: TGpBrush;
    begin
      brush := TGPSolidBrush.Create($FFFF0000);
      font := TGpFont.Create(TGpFontFamily.GenericSansSerif, 12);
      g := TGpGraphics.Create(Label1.Canvas.Handle);
      g.DrawString(ss, 1, font, MakePoint(0.0, 0.0), brush);
      g.Free;
      brush.Free;
      font.Free;
    end;
      

  6.   

    找不到TGpGraphics
    我没有GDI+的pas文件
      

  7.   

    //那个文件叫GdipObj.pas
    //不过有个简单的方法是这样procedure TForm1.Button1Click(Sender: TObject);
    var
      S: WideString;
    begin
      S := '版权所有?2007接分'#0;
      Word(S[5]) := 174;
      Canvas.Font.Name := '宋体';
      Canvas.Font.Size := 12;
      ExtTextOutW(Canvas.Handle, 0, 0, 0, nil, PWideChar(S), Length(S), nil);
    end;