procedure TForm1.Button(Sender: TObject);
var
xiaoshi,fenzhong,st3,st4,st5,st6 :Integer;
begin
xiaoshi:=Integer(edit1.text);
fenzhong:=Integer(edit2.text);
st3:=xiaoshi*3600+fenzhong*60;
edit3.Tex

展开全部
收起
3回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • Gary_Jin

    15人对此回答表示赞同

    赞同楼上说的,赋值要用:=
    除此之外,程序里要把integer()改成strtoint(),用integer()是强制类型转换,你输入字符1,强制转换得到的是码值49,这个应该不是你想要的吧。
    展开
    15
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Jack李墨杰

    7人对此回答表示赞同

    edit5.text=inttostr(st6); 中间的等于号改为赋值号
    edit5.text:=inttostr(st6);
    展开
    7
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Jackson李南

    3人对此回答表示赞同

    有几个问题
    1、edit5.text:=inttostr(st6);
    2、每句最好写在一行,不要几句定在一起,这样程序的可读性不高
    3、xiaoshi:=Integer(edit1.text); 不建议这样将String转换成Integer,最好用StrToInt函数来转,如果是delphi7,更可以用TryStrToInt来转,安全性更高
    展开
    3
    0回复
    发布于 6年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部