Randomize在循环中应用需要注意的

最新推荐文章于 2023-08-14 15:36:52 发布

沉醉西亭

最新推荐文章于 2023-08-14 15:36:52 发布

阅读量4.2k

点赞数

分类专栏：平时碰见的问题文章标签： delphi random Randomize

本文链接：https://blog.csdn.net/hank5658/article/details/8911174

版权

平时碰见的问题专栏收录该内容

20 篇文章 0 订阅

订阅专栏

//需要循环插入表Tb1中若干条记录其中ID字段为主键，想用random生成的随机数来。写语句如下：

with query1 do

for i:=0 to N do

begin

  close;

  sql.clear;

  sql.add(.....);  

  Randomize;

  parameters.parambyname('ID').value := random(1000);

  ..........

  execsql;

end;

//按理说上面代码应该没问题吧，但有时却会提示主键冲突插入不进去，换个位置却可以：

Randomize;

with query1 do

for i:=0 to N do

begin

  close;

  sql.clear;

  sql.add(.....);  

  parameters.parambyname('ID').value := random(1000);

  ..........

  execsql;

end;