04-08-2017, 12:00 AM
وعليكم السلام ورحمة الله
كود :
First
s:=1;
While not(ADOTable1.eof) do
begin
for i := 0 to 4 do
begin
ADOTable1.Edit;
ADOTable1.FieldByName('l').AsInteger := s;
ADOTable1.Post;
ADOTable1.Next;
if i:=4 then s:=inc(s) // or s:=s+1
end;
end;
لأستهلنّ الصعب أو أدرك المنى فما انقادت الآمال إلاّ لصابر