当前位置:编程学习 > Delphi >>

这段delphi代码的意思

randomize; t2:=inttostr(random(250))+'.db'; while fileexists(ljtable.fieldbyname('lj').asstring+'\'+t2) do t2:=inttostr(random(250))+'.db'
答案:randomize;//初始化随机数生成器

t2:=inttostr(random(250))+'.db';//random 函数是取得250以内的随机数(如209);inttostr 函数/是把取得的随机数转换为字符串。并把转换后的结果赋给变量t2;
// t2=209.db
while   fileexists(ljtable.fieldbyname('lj').asstring+'\'+t2) do  //while  do 是一个循环;
t2:=inttostr(random(250))+'.db'
// fileexists是一个判断文件是否存在的函数。ljtable.fieldbyname('lj').asstring 的意思是ljtable数据表中以字符串类型查出字段名称是'lj'。以查出值作为目录时,如果这个目录下面存在t2;那么t2:=inttostr(random(250))+'.db' .
其他:借助随机数 生成一个 随机的文件文件名。
如果生成的随机文件名  已经存在,则重新生成一个。
生成的文件名类似:  101.db   102.db
如果文件夹下存在 101.db 又生成了一个101.db  
fileexists这个函数能检测到  101.db已经存在了,则重新生成另一个随机的。 randomize;//生成随机数前必须做的准备工作:初始化随机数生成器
t2:=inttostr(random(250))+'.db';//生成一个250以内的随机数,将其转换为字符串,在其后添加.db,将得到的值赋值给t2,如:t2:=101.db
while   fileexists(ljtable.fieldbyname('lj').asstring+'\'+t2) do//此循环判断条件指:取出数据库表当前记录中字段名为lj的字段,以字符串形式取出其值,判断以其作为目录时,该目录下是否存在t2这个文件
t2:=inttostr(random(250))+'.db'

上一个:delphi 中使用dll的问题
下一个:delphi的问题

CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,