работа с OLE

← →
Mr_JACK (2005-02-02 19:45) [0]

Добрый вечер!помогите решить проблему:
вот процедура открытия Excel и создания в нём,новой таблицы :

procedure TForm1.Button4Click(Sender: TObject);
var
i,P,L:Integer;
fname:string;
XL,Vals: Variant;
rows,cells:integer;
begin
try
Screen.Cursor := crHourGlass;
Rows := 80;
Cells := 2;
Vals := VarArrayCreate([0, Rows, 0, Cells], varVariant);
try
XL := CreateOleObject("Excel.Application");
except
raise Exception.Create("ошибка открытия Excel");
end;
XL.Application.EnableEvents := False;
XL.WorkBooks.Add;
XL.Range[XL.Cells[1,1], XL.Cells[Rows, Cells]].Value := Vals;
XL.Visible := True;
finally
Screen.Cursor := crDefault;
end;
end;
теперь мне надо чтобы по нажатию другого Button в эту таблицу вносились изменения.
код процедуры нажатия 2 ой кнопки
procedure TForm1.Button2Click(Sender: TObject);
begin
for i:=1 to 120 do begin
XL.cells[i,2].clear;
end;
end;
вот.я немогу понять как обратиться из одной процедуры к уже созданому OLE объекту в другой процедуре.Заранее спасибо!

← →
aus (2005-02-02 21:26) [1]

у тебя переменные XL и Vals - локальные, их не видно в других процедурах, объяви их в описании класса формы.

← →
Mr_jack (2005-02-02 21:39) [2]

Спасибо,ща проверю..

работа с OLE Найти похожие ветки