ادراج الترقيم في عمود

[Bachirsoft]

لقد وجدت الحل وهو :

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
var
  i, s: Integer;
begin
  s := 1;
  i := 1;
  Table1.First;
  While not(Table1.eof) do
  begin
    for i := 1 to 20 do
    begin
      Table1.Edit;
      Table1.FieldByName('clsse').AsInteger := s;
      Table1.Post;
      Table1.Next;
    end;
    s := s + 1
  end;
end; 


لمن يريد الاستفادة منه وشكرا