Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Классы

demisen © (2002-08-28 17:20:00)
Добрый день.

Создал модуль:

unit ExcelExchange;

interface

uses ComObj;

type
TExcel = class(TObject)
public
Excel : variant;
Worksheet : variant;
procedure Connect();
procedure FillCell(col : integer; row : integer; value : string);
end;

implementation

procedure TExcel.Connect;
begin
Excel := CreateOleObject("Excel.Application");
Excel.Workbooks.Open("d:\Axapta\bin\template.xls" );
Excel.Visible := true;
WorkSheet := Excel.Workbooks[1].WorkSheets[1];
end;

procedure TExcel.FillCell(col : integer; row : integer; value : string);
begin
WorkSheet.Cells[col,row]:=value;
end;

end.

В другом модуле пробую делать так:

procedure TfrmRezult.ToolButton2Click(Sender: TObject);
var Ex : TExcel;
begin
Ex.Connect; <--- На этой строчке появляется Exception

Хотя так все работает:

procedure TfrmRezult.ToolButton2Click(Sender: TObject);
var Excel, Worksheet : variant;
begin
Excel := CreateOleObject("Excel.Application");
Excel.Workbooks.Open("d:\Axapta\bin\template.xls" );
Excel.Visible := true;
WorkSheet := Excel.Workbooks[1].WorkSheets[1];

В чем дело ?

Спасибо

ZrenBy (2002-08-28 17:28:00) [1]
Ex := TExcel.Create

Наверх

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