偶用time做个记时器 在time里编辑 label1.caption:=inttostr(strtoint(label1.caption)+1;
---但运行时候出错自动删除了所有代码
---但运行时候出错自动删除了所有代码
解决方案 »
- 简单问题
- 在stringgrid中怎么控制某单元格的输入长度....
- 请问将access数据库中的记录导出到另外一个数据库中,在delphi中怎么写语句?
- 高手来看看这个问题,如何取得句柄
- 哎,人气越来越差,把分散掉算了!
- 怎样将datepicker控件的日期存入oracle中
- 获取ip地址
- ado补丁下载网址
- 在WIN2K(SP2)+D6+ORACLE8I2环境下,用SOCKET SERVER为何总报STACK OVER FLOW错误?
- 新手提问:dbtext的使用?
- 解救:delphi写的DLL,powerbuilder调用出现问题。
- 我有一套标准的财务软件,delphi7+sql2000,如果有小型mis系统我们可以交换一下
strtoint(label1.caption)
如果不能转换会出现异常
---这个是书上的代码呀
---但运行时候出错自动删除了所有代码label1.caption:=inttostr(strtoint(label1.caption)+1);
---这个是书上的代码呀 以上两次的代码一样吗?
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;type
TForm1 = class(TForm)
Timer1: TTimer;
Label1: TLabel;
Button1: TButton;
Button2: TButton;
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.caption:=inttostr(strtoint(label1.caption)+1);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=false; // stop the timer
end;procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=true; // start the timer
end;procedure TForm1.FormCreate(Sender: TObject);
begin
label1.caption:='1';
end;end.