خطأ indice liste hors limite

[S.FATEH]

السلام عليكم جرب بهذه الطريقة

PHP كود :

var
  I, J: Integer;
begin
  Randomize;
  for I := 0 to ADOTable1.FieldCount - 1 do
  begin
    if (I = 0) or (I = 1) then Continue;
    for J := 0 to 28 do
    begin
      ADOTable1.Insert;
      ADOTable1.Fields[I].AsString := lst1.Items[Random(lst1.Items.Count - 1)];
      ADOTable1.Post;
    end;
  end;
end; 


---

السلام عليكم هذا الحل افضل

PHP كود :

var
  I, J: Integer;
begin
  Randomize;
  for I := 0 to ADOTable1.FieldCount - 1 do
  begin
    ADOTable1.First;
    if (I = 0) or (I = 1) then Continue;
    for J := 0 to 28 do
    begin
      ADOTable1.Edit;
      ADOTable1.Fields[I].AsString := lst1.Items[Random(lst1.Items.Count - 1)];
      ADOTable1.Post;
      ADOTable1.Next;
    end;
  end;
end; 


---

السلام عليكم
ان شاء الله تكون وجدت ضالتك  

PHP كود :

var
  I, J, R: Integer;
begin
  Randomize;
  for I := 0 to ADOTable1.FieldCount - 1 do
  begin
    ADOTable1.First;
    if (I = 0) or (I = 1) then Continue;
    for J := 0 to ADOTable1.RecordCount - 1 do
    begin
      ADOTable1.Edit;
      if lst1.Items.Count = 0 then exit;
      R := Random(lst1.Items.Count - 1);
      ADOTable1.Fields[I].AsString := lst1.Items[R];
      lst1.Items.Delete(R);
      ADOTable1.Post;
      ADOTable1.Next;
    end;
  end;
end;