2,497
社区成员
发帖
与我相关
我的任务
分享
with dbsmqrytmp do
begin
Close;
SQL.Text :=
Format('select max(itemindex) maxindex from cnitem where groupindex=%d',
[groupindex]);
Open;
while not Eof do
begin
result := fieldbyname('maxindex').AsInteger;
Next;
end;
end;