StringGrid

[Marianna22]

Здравствуйте!
подскажите пожалуйста!
Выдает ошибку - Incompatible types TString and string
Massiv[i] - тип real

for i := 1 to 9 do
            if Massiv[i]>0 then
              StringGrid1.Cols[i+1]:= FloatToStr(Massiv[i]);

Как типы уравнять?)

[Marianna22]

или как записать в StringGrid1.Cells массив значений типа real?

[zvygin1964]

Сообщение от Marianna22

StringGrid1.Cols[i+1]:= FloatToStr(Massiv[i]);

, - а так пробовали:

StringGrid1.Cells[i+1]:= FloatToStr(Massiv[i]);// те, которые больше нуля, если влезут в таблицу

Мне больше нравится так:

//=====================первая таблица  http://www.delphi-manual.ru/stringgrid.php
   // Задаем число столбцов и строк таблицы
   Ncolumn :=13;                  //количество столбцов + нулевой
   StringGrid1.ColCount := Ncolumn;  //количество столбцов  + нулевой
   StringGrid1.RowCount :=7;   // количество строк
   // Задаем ширину и высоту ячеек
   StringGrid1.DefaultColWidth := 30;
   StringGrid1.DefaultRowHeight:= 30;
   StringGrid1.ColWidths[0] :=570; //нулевой столбец для надписей строк
  // StringGrid1.RowHeights[0]:= 50;  //нулевая строка для "шапки" таблицы

   for column := 1 to StringGrid1.ColCount - 3  do //column - столбец   // раставляем цифры от 1 до последнего в горизонтальной области заголовка
  begin
    StringGrid1.Cells[column, 0] := IntToStr(column); // строка 0 [столбцы column, строка 0]
  end;
    StringGrid1.Cells[Ncolumn-2, 0] := ' ...';  //записываем текст в ячейки
    StringGrid1.Cells[Ncolumn-1, 0] := IntToStr(Ncolumn);//отсчет ведётся от нуля

[Marianna22]

Спасибо!!!
Вот так получилось:

 for i := 1 to 9 do
          if Massiv[i]>0 then
               StringGrid1.Cells[i-1,0]:=FloatToStr(Massiv[i]);