04-07-2017, 12:50 PM
كود :
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
i:=0;
with adoTable1 do
begin
First;
While Not EOF do
begin
edit;
Inc(i);
adotable1id.Value:=i;
if i=100 then
i:=0;
Next;
end;
end;
end;