| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

}|{yk ©   (2004-10-22 14:56:00) 

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:00) [1]

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

---

Наверх