[fofka]

Вопрос такого плана. Данные грузятся в цикле. Тут все работает.

 StringGrid2.RowCount:= 39;
       for i := 1 to 38 do
    begin
     StringGrid2.Cells[2,i+3]:= Sheet1.Range['D' + IntToStr(i+3)];
     StringGrid2.Cells[3,i+3]:= Sheet1.Range['E' + IntToStr(i+3)];
     StringGrid2.Cells[4,i+3]:= Sheet1.Range['G' + IntToStr(i+3)];
     StringGrid2.Cells[5,i+3]:= Sheet1.Range['H' + IntToStr(i+3)];
     StringGrid2.Cells[6,i+3]:= Sheet1.Range['I' + IntToStr(i+3)];
   try
    StringGrid2.Cells[11,i+3]:= Format('%10.0f', [StrToFloat(Sheet1.Range['J' + IntToStr(i+3)])]);
     except
    StringGrid2.Cells[11,i+3]:= Sheet1.Range['J' + IntToStr(i+3)];
   end;

  try
    StringGrid2.Cells[12,i+3]:= Format('%10.0f', [StrToFloat(Sheet1.Range['J' + IntToStr(i+3)])]);
     except
    StringGrid2.Cells[12,i+3]:= Sheet1.Range['J' + IntToStr(i+3)];
   end;
  end;

    Workbook.Close(0);
    Ex.Quit;
    Ex:= UnAssigned;
end;

Как видно из кода загрузка в 11 и 12 колонку идет с Sheet1.Range 'J'. Вопрос в том как добавить цифры к загружаемым данным (у меня расчет работы по часам).
Как то так

"StringGrid2.Cells[12,i+3]:= Sheet1.Range['J' + IntToStr(i+3)] + 3000;
"StringGrid2.Cells[13,i+3]:= Sheet1.Range['J' + IntToStr(i+3)] + 5000;

Вроде объяснил

[Ildar-tsr]

Код:

StringGrid2.Cells[12,i+3]:= IntToStr(StrToInt(VarToStr(Sheet1.Range['J' + IntToStr(i+3)])) + 3000)

?

[fofka]

Сообщение от Ildar-tsr

Код:

StringGrid2.Cells[12,i+3]:= IntToStr(StrToInt(VarToStr(Sheet1.Range['J' + IntToStr(i+3)])) + 3000)

?

Ругается!
IS NOT A VALID INTEGER VALUE

[Ildar-tsr]

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

Ругается!
IS NOT A VALID INTEGER VALUE

Ошибка возникает во время выполнения:

Код:

StrToInt(VarToStr(Sheet1.Range['J' + IntToStr(i+3)]))

Это говорит нам о том, что в Sheet1.Range['J' + IntToStr(i+3)] не целое число.

[fofka]

Бывает попадает и не целое число, потому и использую ":= Format('%10.0f', [StrToFloat(Sheet1.Range['J' + IntToStr(i+3)])]);"
Вот тут и нужно плюсовать....