delphi的问题

显示全部楼层 · 2009-7-17 22:20:48

如何将TEXT里输入的一个整数转换为秒数在转换为time的intevar数
例如我在TEXT输入一个20名为分钟，我想把这20换为秒数在换为time的intevar数
即：time的intevar数=TEXT输入的20分钟
timer1.Interval:=(TEXT输入的20分种）
请写出代码并通过，谢谢。。。
你好，效果不是我想要的。。。我是想把输入的20分钟算出等于TIME的INTEVL的毫秒数。

千问 · 2009-7-17 22:20:48

trystrtoint(edit1.text);exceptshowmessage('请输入整数');end;timer1.interval:=strtoint(edit1.text)*1000//秒//timer1.interval:=strtoint(edit1.text)*1000*60//分钟//timer1.interval:=strtoint(edit1.text)*1000*60*60//小时...

千问 · 2009-7-17 22:20:48

varsTime: integer;procedure TForm1.Edit1DblClick(Sender: TObject);vari: integer;str: string;beginfor i:= 1 to Length(edit1.text) dobegin
if edit1.t...