AI时代，找源码已成为过去式，纪念我过去的十年0(回)
76天前
还有人吗2(回)
93天前会python真的可以为所欲为0(回)
573天前
这里还有人吗2(回)
759天前这里还有人吗0(回)
759天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
983天前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; |
