用YearOf从DateTime变量中提取年份，再用WordToStr转换为String，结果为什么是乱码？(50分)

B

Btic

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-12

• #1

用YearOf从DateTime变量中提取年份，再用WordToStr转换为String，结果为什么是乱码？
请指教。

 

远

远帆

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-12

• #2

用DecodeDate分解时间
用EncodeDate合并时间

 

Y

yfdciom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-12

• #3

你用wordtostr干嘛？
用inttostr不行吗？
procedure TForm1.Button1Click(Sender: TObject);
var
Y:word;
begin
Y:=YearOf(now);
Edit1.Text:=IntToStr(Y);
end;

 

J

jobsxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-12

• #4

year有四位，不能转换

 

Y

yfdciom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-12

• #5

谁说四位就不能转换？
inttostr(year),肯定行

 

B

Btic

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-12

• #6

to yfdciom:

问题解决了，真是太感谢你。

 

J

jobsxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-12

• #7

to yfdciom：我是说WORDTOSTR不能转换四位
to btic：如果你仅是要提取时间，何必那么麻烦，一句就可搞定
edit1.text := formatdatetime('yyyy',now);

 

B

Btic

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-13

• #8

多人接受答案了。