var
i,ii:integer;
begin
try
ao1.Close;
ao1.SQL.Clear;
memo1.Lines.BeginUpdate;
memo2.Lines.BeginUpdate;
for i:=0 to memo1.Lines.Count -1 do
for ii:=0 to memo1.Lines.Count -1 do
ao1.SQL.Add('update character set zs_count='+quotedstr(memo2.Lines.Strings[i])+'where name='+quotedstr(memo1.Lines.Strings[ii]));
ao1.ExecSQL;
finally
application.MessageBox('完成','更新完毕!',0);
end;
end;
i,ii:integer;
begin
try
ao1.Close;
ao1.SQL.Clear;
memo1.Lines.BeginUpdate;
memo2.Lines.BeginUpdate;
for i:=0 to memo1.Lines.Count -1 do
for ii:=0 to memo1.Lines.Count -1 do
ao1.SQL.Add('update character set zs_count='+quotedstr(memo2.Lines.Strings[i])+'where name='+quotedstr(memo1.Lines.Strings[ii]));
ao1.ExecSQL;
finally
application.MessageBox('完成','更新完毕!',0);
end;
end;
解决方案 »
- 做了一个打印图片的程序,但是打印出来的jpg图片模糊,字迹有锯齿.不知如何解决?
- Panel中的TImage不能显示出来,高手请进。
- 音频频谱分析?
- 寻求能用在Delphi6的TopGrid控件。
- 紧急求救!关于delphi的控件
- 刚刚安装了Delphi7.0企业版,还不知道她和Delphi6.0有什么区别,各位兄弟能给些意见吗?
- 请问有多个关键字的表创建,sql语句怎么写
- 压缩 与 显示 jpeg 的有关问题-------->>>>>>>>>>>
- strtoint能否将16进制表示的字符串转化为longint?
- 把数据从数据库导入文本文件的问题,谢谢
- 关于TFrame的控件数组
- 有关Sender: TObject的问题
i,ii:integer;
begin
try with ao1 do
begin
memo1.Lines.BeginUpdate;
memo2.Lines.BeginUpdate;
for i:=0 to memo1.Lines.Count -1 do
begin
for ii:=0 to memo2.Lines.Count -1 do //memo2
begin
Close;
SQL.Clear;
SQL.Add('update character set zs_count='+quotedstr(memo2.Lines.Strings[i]) +'where name='+quotedstr(memo1.Lines.Strings[ii]));
ExecSQL;
end;
end;
finally
application.MessageBox('完成','更新完毕!',0);
end;
end;
i,ii:integer;
begin
try with ao1 do
begin
memo1.Lines.BeginUpdate;
memo2.Lines.BeginUpdate;
for i:=0 to memo1.Lines.Count -1 do
begin
for ii:=0 to memo2.Lines.Count -1 do //memo2
begin
Close;
SQL.Clear;
SQL.Add('update character set zs_count='+quotedstr(memo2.Lines.Strings[i]) +'where name='+quotedstr(memo1.Lines.Strings[ii]));
ExecSQL;
end;
end;
end; //少了END;
finally
application.MessageBox('完成','更新完毕!',0);
end;
end;