[Scorpuha]

Проект нормально компилиться, но при нажатии кнопки выдает ошибку.
подскажите где копать. проект в скрепке.

[NumLock]

см. отладчиком что в StrToFloat передается

[Scorpuha]

дико извиняюсь, как это сделать?

[NumLock]

http://www.helloworld.ru/texts/comp/...ugerDelphi.htm

[Scorpuha]

почитал хелп по ссылке, попробовал трассировку, и чето совсем запутался, помогите, плз. наверняка какая то мелочь мешает.

[Страдалецъ]

Очень полезный архив.
Где файл-то то собственно? metrologiya.pas

[Scorpuha]

ссори, перезалил

[vr-frost]

Используйте ColCount и RowCount в циклах! У вас пишется ни пойми что не пойми куда!

[NumLock]

у тебя в гриде 5 строк, а ты крутишься по 6! поэтому StrToFloat вылетает на внедиапазонной ячейке.

[Scorpuha]

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

у тебя в гриде 5 строк, а ты крутишься по 6! поэтому StrToFloat вылетает на внедиапазонной ячейке.

уряяя, заработало!!!! Спасибо.

[Scorpuha]

чтобы не плодить темы напишу тут.
при выводе в эксель из Stringgrid2 получается что в пять ячеек выводиться одно и тоже значение из stringgrid2, это значение последнее в stringgrid2, а нужно чтобы вывел все значения от 1 до 5. перепробовал много вариантов нужный не нашел

[Страдалецъ]

Код:

ExcelSheet:=ExcelApp.Workbooks[1].WorkSheets['Отчёт'];
  For i:=0 To StringGrid2.RowCount-1 Do
    For j:=0 To StringGrid2.ColCount-1 Do
      for c:=17 to 21 do
        ExcelSheet.Cells[c, 8]:=StringGrid2.Cells[j, i];  //вот тут и проблемка

У меня мозг закипел в попытке понять, что вы этим кодом хотите сделать?

Скопировать матрицу из StringGrid в эксель? Тогда на кой бес вы завели цикл дополнительный?
for c:=17 to 21 do

[Scorpuha]

Сообщение от Страдалецъ

Код:

ExcelSheet:=ExcelApp.Workbooks[1].WorkSheets['Отчёт'];
  For i:=0 To StringGrid2.RowCount-1 Do      // тут идет обработка грида
    For j:=0 To StringGrid2.ColCount-1 Do
      for c:=17 to 21 do                     //а тут я пытался вывести значения из грида в столбец 8 с 17 по 21 строчку
        ExcelSheet.Cells[c, 8]:=StringGrid2.Cells[j, i];  //вот тут и проблемка

У меня мозг закипел в попытке понять, что вы этим кодом хотите сделать?

Скопировать матрицу из StringGrid в эксель? Тогда на кой бес вы завели цикл дополнительный?
for c:=17 to 21 do

по другому у меня не получается вывести данные в нужный мне диапазон ячеек

[Страдалецъ]

Ага, т.е. проблема просто вывести в нужные ячейки в экселе?
И как вы себе представляете запихать матрицу размерностью NxM в матрицу Nx1? Может вот так нужно было?

Код:

  For i:=0 To StringGrid2.RowCount-1 Do      // тут идет обработка грида
    For j:=0 To StringGrid2.ColCount-1 Do     
        ExcelSheet.Cells[J + 17, i + 8]:=StringGrid2.Cells[j, i]; 

[Scorpuha]

Сообщение от Страдалецъ

Ага, т.е. проблема просто вывести в нужные ячейки в экселе?
И как вы себе представляете запихать матрицу размерностью NxM в матрицу Nx1? Может вот так нужно было?

Код:

  For i:=0 To StringGrid2.RowCount-1 Do      // тут идет обработка грида
    For j:=0 To StringGrid2.ColCount-1 Do     
        ExcelSheet.Cells[J + 17, i + 8]:=StringGrid2.Cells[j, i]; 

ExcelSheet.Cells[J + 17, i + 8]:=StringGrid2.Cells[j, i]; вот тут я поменял местами переменные j и i и получил то что мне и требовалось.

Спасибо. кстати похожий вариант я проделывал но видать чуть чуть не хватало понимания и внимания.