Скачать: CL | DM;

работа с 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]

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c