word类型和字符串类型之间如何进行转换？

var  
        MyST:TSystemTime;  
  begin  
      with   MyST   do  
      begin  
          wYear:=2004;  
          wMonth:=11;  
          wDay:=25;  
          wHour:=8;  
          wMinute:=9;  
          wSecond:=10;  
      end;  
      SetSystemTime(MyST);  
  end;  
  现在我想在上面的各个的数字的地方用   edit.text来代替，前后的变量类型不一致的，该如何进行转换？？ 问题点数：20、回复次数：5Top

1 楼yaven365（天涯网客）回复于 2004-12-01 13:02:08 得分 5

先转化为int型,然后再直接强制转化  
  例如wyear:=word(strtoint(edit1.text));  
  (不好意思,没调试,楼主试验一下)  
  Top

2 楼CloneCenter（复制中心）回复于 2004-12-01 14:00:35 得分 5

直接用   StrToInt   函数也是可以的。Top

3 楼YAMABACK（不要把我当Michael，我只是会投篮）回复于 2004-12-01 14:07:34 得分 5

word可以看作IntegerTop

4 楼shunbing（）回复于 2004-12-01 14:22:18 得分 0

var  
        MyST:TSystemTime;  
  begin  
      with   MyST   do  
      begin  
          Edit1.Text:=IntToStr(2004);  
          Edit2.text:=IntToStr(11);  
          Edit3.text:=IntToStr(25);  
          Edit4.text:=IntToStr(8);  
          Edit5.text:=IntToStr(9);  
          Edit6.Text:=IntToStr(10);  
      end;  
      SetSystemTime(MyST);  
  end;Top

5 楼shunbing（）回复于 2004-12-01 14:23:58 得分 5

不好意思，没看清楚：  
   
  var  
        MyST:TSystemTime;  
  begin  
      with   MyST   do  
      begin  
          wYear:=StrToInt(Edit1.text);  
          wMonth:=StrToInt(Edit2.Text);  
          wDay:=StrToInt(Edit3.Text);  
          wHour:=StrToInt(Edit4.text);  
          wMinute:=StrToInt(Edit5.text);  
          wSecond:=StrToInt(Edit6.text);  
      end;  
      SetSystemTime(MyST);  
  end;Top

相关问题

• myst
• strtoint
• edit
• 类型
• inttostr
• tsystemtime
• setsystemtime
• wyear
• begin
• text

• 帖主：qgj99
• yaven365
• CloneCenter
• YAMABACK
• shunbing

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载