此程序为什么会死机??

[Jackasdf]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, Buttons, DB, ADODB;

type
TForm1 = class(TForm)
ListView1: TListView;
BitBtn1: TBitBtn;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select * from tzb');
open;

listview1.Items.Clear ;
while not eof do
with listview1.Items.Add do
begin
caption:=fieldByName('jszh').AsString;
subitems.Add(fieldByName('xm').AsString);
subitems.Add(fieldByName('sfzh').AsString);
end;
next
end;


end;


end.我一运行此程序就死机,何解

[wdqxxx]

真的吗？我正需要一个能死机的程序！我试试。

[pilicat]

呵呵，死循环了，当然死了，改为如下：

while not eof do
begin//加个Begin
with listview1.Items.Add do
begin
caption:=fieldByName('jszh').AsString;
subitems.Add(fieldByName('xm').AsString);
subitems.Add(fieldByName('sfzh').AsString);
end;
next;
end;//加个End，主要是把上面的next包在里面。

[javafelia]

我做了一下，没有问题！

[herman~~]

同意 pilicat(delphi迷的方法

[ys19011]

同志这就不是能力的问题了,
这种错误是要挨鞭子的
呵呵

[hellolongbin]

open;
first;//你忘了这句;
while not eof do
begin //这句也应该写上
dosomething;
next;
end;

[xiaoyanggonghui]

呵呵 楼上的兄弟 查询出来 默认的就是第一笔

[DelphiSharp]

少用with 看不出有多大好处

[bai11]

没有next

[sato]

把with去掉，再调试，就能发现问题了！