var zz,zz1:string; begin for i:=1 to 200 do begin case i of 1..9:zz:='00'+inttostr(i); 10..99:zz:='0'+inttostr(i); 100:200:zz:=inttostr(i); end; query1.close; query1.sql.clear; zz1:='insert into tablename values('+zz+')'; query1.sql.add(zz1); query1.execsql; end; end
begin
for i:=1 to 200 do
begin
case i of
1..9:zz:='00'+inttostr(i);
10..99:zz:='0'+inttostr(i);
100:200:zz:=inttostr(i);
end;
query1.close;
query1.sql.clear;
zz1:='insert into tablename values('+zz+')';
query1.sql.add(zz1);
query1.execsql;
end;
end