Текущий архив: 2004.11.07;
Скачать: CL | DM;

Вниз

Такой вот код вываливается с ошибкой OLE   Найти похожие ветки 

← →
}|{yk ©   (2004-10-22 14:56) [0]

procedure TExcelFile.setCell(row: Integer; column: Integer; value: OleVariant);
begin
 if sheet <> nil then
 begin
   sheet.Cells.Item[OleVariant(row), OleVariant(column)].Value := value;
 end;

end;

---

← →
}|{yk ©   (2004-10-22 14:59) [1]

 TExcelFile = class(TComponent)
 private
   application: TExcelApplication;
   book: TExcelWorkbook;
   sheet: TExcelWorkSheet;

---

Страницы: 1 вся ветка

Текущий архив: 2004.11.07;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.031 c