来来来,看看这段代码!
baifu 2005-04-07 09:31:00 procedure TForm1.Button2Click(Sender: TObject);
var
adoqrysave : Tadoquery;
iCount : integer;
pCheck : ^TCheck;
begin
adoqrysave:=Tadoquery.Create(self);
adoqrysave.Connection:=adoConn;
pCheck:=MyList.Items[currentCount-1];
with adoqrysave do
begin
close;
sql.Clear;
sql.Add('INSERT INTO check(part,subpart)');
sql.Add('VALUES(:part,:subpart)');
parameters.ParamByName('part').Value:=Trim(pCheck.GetPart()); //×运行至此出错。
parameters.ParamByName('subpart').Value:=Trim(pCheck.GetSubPart());
open;
end;
end;
MyList是我声明的一个TList变量,里面存的是TCheck型的变量。每当运行到×那一句的时候,系统就报错,搞不懂为什么。我对于TList不太熟悉,会不会是MyList的使用方法不对?