var
sqlcount: integer;
begin
for sqlcount := 0 to sqlStrS.Count - 1 do
begin
ADOQuery.SQL.Clear;
ADOQuery.SQL.Add(sqlStrS.Strings[sqlcount]);
ADOQuery.SQL.SaveToFile(GetCurrentDir + '\1.txt');
ADOQuery.Prepared;
ADOQuery.ExecSQL;
end;
有什么语法错误?循环第一遍没错 第二遍说语法错误!
sqlcount: integer;
begin
for sqlcount := 0 to sqlStrS.Count - 1 do
begin
ADOQuery.SQL.Clear;
ADOQuery.SQL.Add(sqlStrS.Strings[sqlcount]);
ADOQuery.SQL.SaveToFile(GetCurrentDir + '\1.txt');
ADOQuery.Prepared;
ADOQuery.ExecSQL;
end;
有什么语法错误?循环第一遍没错 第二遍说语法错误!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货