delphi中的params相关问题
var
Per_Area_PotMax:array[1..2,1..AREAMAX] of BYTE=((30,35,36),(36,35,30));//每区最大槽数
ROOMNO:Integer=1;//厂房号1或2
procedure InsertPotNoToSetValueTable(Qry:TQuery);
var
i,j:Integer;
begin
with Qry do begin
SQL.Clear;
SQL.Add('Insert Into PotSetValueTable'+IntToStr(RoomNo)+' (PotNo) Values (:P)');
Params[0].AsInteger:=RoomNo*1000;
ExecSQL;
for i:=1 to AreaMax do begin
for j:=1 to Per_Area_PotMax[RoomNo,i] do begin
Params[0].AsInteger:=((RoomNo-1)*AreaMax+i)*100+j;
ExecSQL;
end;
end;
end;
end;
请问以下两句如何理解?
SQL.Add('Insert Into PotSetValueTable'+IntToStr(RoomNo)+' (PotNo) Values (:P)');
Params[0].AsInteger:=RoomNo*1000;
:p什么意思?Params[0]指什么内容?