5,402
社区成员
发帖
与我相关
我的任务
分享tlabel里面如何出现版权符号
delphi的tlabel采用的不是unicode编码，
我想在里面显示(R)Copyright xxxx这类的字样，但是这个(R)怎么输入？
我想在里面显示(R)Copyright xxxx这类的字样，但是这个(R)怎么输入？
...全文
请发表友善的回复…
发表回复
Chen_ZhongHua 2002-05-28
- 打赏
- 举报
熊掌和鱼翅不能兼得！
耙子 2002-05-26
- 打赏
- 举报
但是你这个widestring 怎么赋值给ttable呀？
widestring我也常用，大多是com用到的
widestring我也常用，大多是com用到的
yeyanbo 2002-05-26
- 打赏
- 举报
在delphi中默认的字符串类型是AnsiString,它是由char(byte)字符组成的.但是如果你定义一个WideString类型的字符串就可以显示unicode字符了,它的组成是WideChar(2byte).
yeyanbo 2002-05-25
- 打赏
- 举报
其实这个问题很简单,你只要将Label的字体设置为CommercialPi BT,然后在Label的Caption中设为b或d即可.如果要再输入字母或中文,只要再加入一个Label就可以了.
zjj_horse 2002-05-25
- 打赏
- 举报
同意 Mudeen(笑哥哥)
up
up
耙子 2002-05-25
- 打赏
- 举报
这个问题实际上引申一下就是delphi程序如何处理显示unicode字符，谁有着经验？
chao_jian 2002-05-25
- 打赏
- 举报
試試修改字體的字符集看行不行
耙子 2002-05-25
- 打赏
- 举报
我现在就这么干的,可是从根本上说心里不舒服,老觉得是个问题
耙子 2002-05-23
- 打赏
- 举报
帮我up呀！
耙子 2002-05-21
- 打赏
- 举报
在 windows里面的symbol字体里面的 d2和e2也是。
但是这需要把tlabel的字体变为symbol，但这样一来中文就不能混排了
但是这需要把tlabel的字体变为symbol，但这样一来中文就不能混排了
耙子 2002-05-21
- 打赏
- 举报
版权符号®
unicode 编码的00ae就是，
unicode 编码的00ae就是，
realplayer 2002-05-20
- 打赏
- 举报
不知你要什么符号
是诸如：☆Д￥ぁェā┒之类的吗？
是诸如：☆Д￥ぁェā┒之类的吗？
耙子 2002-05-20
- 打赏
- 举报
还有人有办法吗？
可不可以在程序运行中想想办法？
win2k中新宋体就包含了unicode全部字符，但是怎么显示出来呀？
delphi又没办法设定字符集为unicode.
可不可以在程序运行中想想办法？
win2k中新宋体就包含了unicode全部字符，但是怎么显示出来呀？
delphi又没办法设定字符集为unicode.
CodeDuDu 2002-05-20
- 打赏
- 举报
好象不行，我刚才是用错符号了。
不好意思。呵呵~~~~~
不好意思。呵呵~~~~~
boby 2002-05-20
- 打赏
- 举报
我也看看，用copy paste 不行，delphi中显示的是问号
CodeDuDu 2002-05-20
- 打赏
- 举报
To: pazee(耙子)我刚试了，行！！！！！！！！！！！！！！！！！！！
耙子 2002-05-20
- 打赏
- 举报
看来有搞头，再加40分。
to ： mrzho(mrzhou)
你去试验好了在来说，你要知道(R)是unicode才有的，再gb2312里面表示不出来。
如果只想表示一个(C)还容易些，因为window有些字体有这个符号，但是无法和汉字混排。
to Mudeen(笑哥哥)
你的意思就是说delphi没办法在程序里面显示unicode了？
to ： mrzho(mrzhou)
你去试验好了在来说，你要知道(R)是unicode才有的，再gb2312里面表示不出来。
如果只想表示一个(C)还容易些，因为window有些字体有这个符号，但是无法和汉字混排。
to Mudeen(笑哥哥)
你的意思就是说delphi没办法在程序里面显示unicode了？
superljj 2002-05-20
- 打赏
- 举报
你看看微软行不行。
mrzho 2002-05-20
- 打赏
- 举报
无论你从哪里找到这个字符，然后COPY and Pasted就可以了。
耙子 2002-05-20
- 打赏
- 举报
to :codedudu(都都)
你肯定都没试验过就来胡说了.
word是unicode编码的， label不是，
你肯定都没试验过就来胡说了.
word是unicode编码的， label不是，
加载更多回复（4）
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,Math, TeEngine, Series, ExtCtrls, TeeProcs, Chart;
type
Tcatchform = class(TForm)
lbl1: TLabel;
lbl2: TLabel;
lbl3: TLabel;
lbl4: TLabel;
lbl5: TLabel;
lbl6: TLabel;
lbl7: TLabel;
lbl8: TLabel;
lbl9: TLabel;
lbl10: TLabel;
lbl11: TLabel;
lbl12: TLabel;
btn1: TButton;
edt1: TEdit;
edt2: TEdit;
edt3: TEdit;
edt4: TEdit;
edt5: TEdit;
edt6: TEdit;
edt7: TEdit;
edt8: TEdit;
edt9: TEdit;
edt10: TEdit;
edt11: TEdit;
cht1: TChart;
lnsrsSeries1: TLineSeries;
lbl13: TLabel;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
catchform: Tcatchform;
implementation
{$R *.dfm}
procedure Tcatchform.btn1Click(Sender: TObject);
var
LX,LY,HX,HY,LV,HVY,HV,C,X,Y:real;
T1,T2,T:real; //T1是越野时间，T2是路上时间
LX1,LY1,a,b,BC,min:real;
k:integer;
begin
HX:=strtofloat(edt1.Text);
LX:=strtofloat(edt2.Text);
HY:=strtofloat(edt3.Text);
LY:=strtofloat(edt4.Text);
C:=strtofloat(edt5.Text);
HVY:=strtofloat(edt6.Text);
HV:=strtofloat(edt7.Text);
LV:=strtofloat(edt8.Text);
BC:=0;
a:=LX;
b:=LY;
min:=5000;
repeat BC:=BC+0.001;//取步长
for k:=1 to 500 do
begin
a:=LX+k*BC;
b:=LY+k*tan(C*pi/180)*BC; //上路点假想
T1:=sqrt(sqr(b-HY)+sqr(a-HX))/HVY;
LX1:=LX+LV*cos(C*pi/180)*T1;
LY1:=LY+LV*sin(C*pi/180)*T1;
if LX1T then
begin min:=T;
X:=a;
Y:=b;
cht1.Series[0].AddXY(X,min,'',clred);
end;
end;
until BC>4;
edt9.Text:=floattostr(X);
edt10.Text:=floattostr(Y);
edt11.Text:=floattostr(min);
end;
end.
