Генератор случайных чисел

[Evgenii(Евгений)]

как заполнить все поля string grid с помощью генератора случайных событий ?

[unbanned]

можно как-то так

var
  n, i: integer;
begin
  n := 0;{счетчик строк}
  i := 0;{счетчик столбцов}
  repeat
    StringGrid1.Cells[i, n] := inttostr(random(100));
    i := i + 1;
    if i = 10 then {здесь вместо десяти подставляешь нужное кол-во столбцов}
    begin
      i := 0;
      n := n + 1;
    end;
    if n = 10 then break; {а здесь нужное кол-во строк}
  until i = 10; {сюда опять же кол-во столбцов}
end.

оч бредово, но работает

[psycho-coder]

Например так

var
  i, j: Integer;
begin
  Randomize();
  for i := 0 to StringGrid1.RowCount - 1 do
    for j := 0 to StringGrid1.ColCount - 1 do
      StringGrid1.Cells[i, j] := IntToStr(Random(50) + 1);
end;

[Evgenii(Евгений)]

спасибо !!!!!

[Андрюха_ЕШКО]

Сообщение от psycho-coder

Например так

var
  i, j: Integer;
begin
  Randomize();
  for i := 0 to StringGrid1.RowCount - 1 do
    for j := 0 to StringGrid1.ColCount - 1 do
      StringGrid1.Cells[i, j] := IntToStr(Random(50) + 1);
end;

а для бейсика не сможешь помочь генератор чисел сделать?

[Obey-Kun]

unbanned, Randomize забыл

[unbanned]

Сообщение от Obey-Kun

unbanned, Randomize забыл

не принципиально... я же не полностью программу выкладывал а просто кусок кода в котором общий смысл отражен. кстати без randomize тоже работает