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;
你用wordtostr干嘛？ 用inttostr不行吗？ procedure TForm1.Button1Click(Sender: TObject); var Y:word; begin Y:=YearOf(now); Edit1.Text:=IntToStr(Y); end;
Y yfdciom Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-12 #5 谁说四位就不能转换？ inttostr(year),肯定行
J jobsxy Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-12 #7 to yfdciom：我是说WORDTOSTR不能转换四位 to btic：如果你仅是要提取时间，何必那么麻烦，一句就可搞定 edit1.text := formatdatetime('yyyy',now);
to yfdciom：我是说WORDTOSTR不能转换四位 to btic：如果你仅是要提取时间，何必那么麻烦，一句就可搞定 edit1.text := formatdatetime('yyyy',now);
