实现一个人工选择累加器 功能:用户在Listbox选择间隔秒数(比如2秒)然后按开始(button1)键,从0开始累加计数(隔2秒累加1),显示结果在edit,按停止键(button2),停止累加,要求写出代码。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;type TForm1 = class(TForm) ListBox1: TListBox; Button1: TButton; Button2: TButton; Timer1: TTimer; Edit1: TEdit; procedure FormShow(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } vg_index:Integer; end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormShow(Sender: TObject);begin vg_index:=0;end;procedure TForm1.Button1Click(Sender: TObject);begin self.Timer1.Interval:=2000; self.Timer1.Enabled:=True;end;procedure TForm1.Button2Click(Sender: TObject);begin self.Timer1.Enabled:=False;end;procedure TForm1.Timer1Timer(Sender: TObject);var i:Integer; s:string;begin s:=self.ListBox1.Items.Strings[self.vg_index]; self.Edit1.Text:=s; i:=self.ListBox1.Items.Count; if self.vg_index+1=i then self.vg_index:=0 else self.vg_index:=self.vg_index+1;end;end. unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;type TForm1 = class(TForm) ListBox1: TListBox; Button1: TButton; Button2: TButton; Timer1: TTimer; Edit1: TEdit; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin Edit1.Text:='0'; Timer1.Interval:=strtoint(ListBox1.Items[ListBox1.ItemIndex])*1000; Timer1.Enabled:=True;end;procedure TForm1.Button2Click(Sender: TObject);begin Timer1.Enabled:=False;end;procedure TForm1.Timer1Timer(Sender: TObject);begin Edit1.Text:=inttostr(strtoint(Edit1.Text)+1);end;end. 初学delphi,求delphi 语法的教程 急问DataGrid显示问题 为什么会出现"无法为更新定位行。一些值可能已在...",请看详细! 急!! 高分求助! 一个MDI问题 更改系统图片 用条形码输入仪器输入数据有谁知道啊? ~~~~~~~100分求XP界面控件 有没有可以选文件夹的类似与opendialpg的控件? 想问如何直接调用已有的EXCEL的文件,同时当前的程序要最小化。 paradox问题 delphi 调用Adobe实现pdf对比 新手求教:局域网通讯控制的问题!
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;type
TForm1 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
Button2: TButton;
Timer1: TTimer;
Edit1: TEdit;
procedure FormShow(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
vg_index:Integer;
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormShow(Sender: TObject);
begin
vg_index:=0;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
self.Timer1.Interval:=2000;
self.Timer1.Enabled:=True;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
self.Timer1.Enabled:=False;
end;procedure TForm1.Timer1Timer(Sender: TObject);
var
i:Integer;
s:string;
begin
s:=self.ListBox1.Items.Strings[self.vg_index];
self.Edit1.Text:=s;
i:=self.ListBox1.Items.Count;
if self.vg_index+1=i then
self.vg_index:=0
else
self.vg_index:=self.vg_index+1;
end;end.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;type
TForm1 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
Button2: TButton;
Timer1: TTimer;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:='0';
Timer1.Interval:=strtoint(ListBox1.Items[ListBox1.ItemIndex])*1000;
Timer1.Enabled:=True;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=False;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
Edit1.Text:=inttostr(strtoint(Edit1.Text)+1);
end;end.