StringGrid + динамический массив

[Artsiom]

Доброго времени суток.
Написал следующий код

procedure TFrom1.BitBtn1Click(Sender: TObject);
var
 i,j,w : integer;
begin
 SetLength(h0, q-1);
 w := 0;
 i := 1;
for j:=0 to q1 do
 repeat
  h0[w] := StrtoFloat(StringGrid1.Cells[i,j]);
  inc(w);
  if i<5 then inc(i) else i := 1;
 until w=q-1;
end;

Поясняю. У меня есть к примеру 6 каких то значений(q=6).
СтрингГрид имеет 1 фиксированный столбец и 5 для значений.
Соответственно что бы вести эти 6 значений нужно 2 таких строки(q1=1, т.к. первая строка в гриде имеет порядковый номер 0, а вторая 1).
Нужно со СтрингГрида вывести в массив h0 эти 6 значений.
Я бы воспользовался простым Memo и не мучился бы, но нельзя.
q, q1 : integer;
Выдаёт ошибку "raised exception class ECConvertError with message " is not a valid floating point value ".

СОС!

[tools]

"raised exception class ECConvertError with message " is not a valid floating point value "

Возможно, разделитель для вещественного числа неверно указан. Например, запятая вместо точки (зависит от региональных настроек вашей ОС).

[Stilet]

Вместо StrtoFloat используй StrtoFloatDef() тогда ошибок не получишь.
Или так:

if not TryStrToFloat(StringGrid1.Cells[i,j],h0[w]) then begin
 ShowMessage('В клетке '+IntToStr(i)+','+IntToStr(j)+' введено не число');
 exit;
end;