刚从教程上看到的一个例子,拿到机器上调试,检查了n次,也发现输入错误呀~
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls;type
TForm1 = class(TForm)
ProgressBar1: TProgressBar;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
with progressbar1 do
begin
min :=0;
max := sqldataset1.recordcount;//调试每次到了这里卡在这里,说没有定义呀
sqldataset1.first;
for i:=min to max do
begin
position:=i;
sqldataset1.next;
end;
end;
end;end.
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls;type
TForm1 = class(TForm)
ProgressBar1: TProgressBar;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
with progressbar1 do
begin
min :=0;
max := sqldataset1.recordcount;//调试每次到了这里卡在这里,说没有定义呀
sqldataset1.first;
for i:=min to max do
begin
position:=i;
sqldataset1.next;
end;
end;
end;end.
解决方案 »
- 关于Delphi的ODAC控件问题!急急急急急!!!
- 下面功能怎么实现谢谢!
- 将要找工作的学生写的代码,这样的水平能找到工作否?前辈们再提点好的实现方法。
- 求公历转农历算法!!!
- 如何将过程压进TLIST中,再从TLIST中取出来调用?
- 招delphi程序员(三个月短期项目,深圳福田区),熟悉网络应用开发、精通数据库应用开发
- 各位高手!query里有动态SQL语句,可以静态设计fastreport??
- 用TADODataSet或是用TADOQuery?
- 民意调查:各位的入门书籍是什么呀!!!!
- 我的MIDAS服务器不支持多个连接???
- 多文档窗体之间传值的问题
- 我每次给完分,结贴,为什么这个问题还是显示未结贴呢:(
另外,在用sqldataset1.recordcount;前先用sqldataset1.last;这样保证sqldataset1.recordcount 得到正确的值