Создание массивов Dеlphi

[вася радугов]

Как сделать, чтобы в каждую строку StringGrid выводились случайные вещественные числа. строк 12. Т.е. получается, что в каждую строку выводится по массиву вещественных чисел.

[Serge_Bliznykov]

так устроит?

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
end;


procedure TForm1.Button1Click(Sender: TObject);
var i, j : integer;
begin
   for i := 0 to StringGrid1.RowCount - 1 do
     for j := 0 to StringGrid1.ColCount - 1 do
        StringGrid1.Cells[j, i] := FloatToStr( Random() );
end;

краткие пояснения.
1) на событие создания формы onCreate мы вешаем иницилизацию генератора случайных чисел. Обычно это нужно делать один раз при запуске программы, событие OnCreate - идеально подходит для этого

2) заполнение происходит по кнопке (событие onClick). Просто для наглядности. Но это можно делать там, где Вам нужно!

3) заполняется ВЕСЬ StringGrid от первой ячейки до последней и от первого столбца и до последнего столбца

4) заполнение идёт случайными числами в диапазоне от 0 до 1 (не включительно).

[вася радугов]

а как сделать чтобы числа генерировались в диапазоне от 0 до 100?

[Serge_Bliznykov]

умножить на 100

[вася радугов]

Спасибо. Все получилось. А как сделать чтобы выводились вешественные числа вместо целых?

[Stilet]

А разве сейчас этот код не вещественные выводит?

[вася радугов]

Может я не правильно умножил. там где random() я поставил random(100) и у меня выводятся целые числа.

[Stilet]

А ты убери 100 - тогда будет выдавать от нуля до единицы. И умножай после на 100.

[вася радугов]

извините, может вопрос тупой, но я не пойму как это после?

[Serge_Bliznykov]

но я не пойму как это после?

    StringGrid1.Cells[j, i] := FloatToStr( Random()*100.0 );