会python真的可以为所欲为0(回)
249天前
这里还有人吗1(回)
434天前这里还有人吗0(回)
434天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
658天前到处都是羊，不想上班0(回)
738天前
鸽子
0(回)
743天前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;