Форум: "Основная";
Текущий архив: 2004.11.07;
Скачать: [xml.tar.bz2];

Вниз

Такой вот код вываливается с ошибкой 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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.046 c