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

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

работа с OLE [D6, D7, WinXP]

Mr_JACK ©   (2005-02-02 19:45:00) 

Добрый вечер!помогите решить проблему:
вот процедура открытия 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 объекту в другой процедуре.Заранее спасибо!

---

Mr_jack   (2005-02-02 21:39:00) [1]

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

---

aus   (2005-02-02 21:26:00) [2]

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

---

Наверх