会python真的可以为所欲为0(回)
398天前
这里还有人吗1(回)
583天前这里还有人吗0(回)
583天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
808天前到处都是羊，不想上班0(回)
888天前
鸽子
0(回)
892天前function TForm1.IDcreate:string; |
var |
i:integer; |
begin |
with Query do |
begin |
close; |
sql.Clear; |
sql.Add('select ID from lendcardkind order by ID'); |
open; |
for i:=1000 to 9999 do |
begin //for |
while not eof do |
begin //while |
if strtoint(fieldbyname('ID').AsString)=i then |
begin |
next; |
Break; |
end |
else |
begin |
if i<10 then |
result := '000'+inttostr(i) |
else |
if i<100 then |
result:='00'+inttostr(i) |
else |
if i<1000 then |
result:='0'+inttostr(i) |
else |
if i<10000 then |
result:=inttostr(i); |
exit;//next; |
//break; |
//break; |
end; |
end; //while |
end; //for |
end; |
end; |
