Иcпользование API на Delphi 7

Автор

Сергей Николаевич Талипов

Жанр

Программирование

Год написания книги

2012

<< 1 ... 9 10 11 12 13 14 15 >>

На страницу:

Перейти

13 из 15

Настройки чтения

Размер шрифта

Высота строк

Поля

wd.Paragraphs.Item(3).Range.Font.Italic := 1; // шрифт – рукописный

// добавляем таблицу

wd.Tables.Add(wd.Paragraphs.Item(3).Range, 5, 4, EmptyParam, EmptyParam); // 5-строк, 4- cтолбца

wd.Tables.Item(1).Range.Font.ColorIndex := 2; // цвет синий в таблице

// в цикле задаем значение ячеек, добавляем текст

for i := 1 to 5 do wd.Tables.Item(1).Cell(i, 1).Range.Text := IntToStr(i);

end;

procedure TForm1.FormDestroy(Sender: TObject);

var s: OleVariant; // для параметров

begin

try

s:=False; //изменения не сохранять

wd.Close(s,EmptyParam,EmptyParam); // закрыть сначала документ

wa.Quit(s,EmptyParam,EmptyParam); // а потом и ворд

except end; // ничего не предпринимаем, если ворд уже закрыт

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

// в соотв ячейку ставим соотв значение, а можно и наоборот

wd.Tables.Item(1).Cell(UpDown2.Position,UpDown1.Position).Range.Text:=Edit3.Text;

end;

end.

2. РАБОТА С ПРИЛОЖЕНИЕМ «MS EXCEL»

unit Main;

….

private

XLApp: Variant;

public

implementation

uses … ComObj, Variants;

const cXL1 = -4167; cXL2 = 1;

procedure TForm1.FormDestroy(Sender: TObject);

{ Уничтожение формы }

begin

{ Если открыт нужный лист Excel, то … }

if not VarIsEmpty(XLApp) then begin

XLApp.DisplayAlerts := False; // если True – то спрашивает о сохр.

XLApp.Quit; // Закрытие Excel'a

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

var R, C, S: Variant; i: Integer;

begin

XLApp:= CreateOleObject('Excel.Application'); // Подключение к Excel

XLApp.Visible := True; // Включение Excel на экран

XLApp.Workbooks.Add(cXL1); // Добавляем новый лист

// Задаем листу название

XLApp.Workbooks[1].WorkSheets[1].Name := 'Delphi Data';

// Вставка данных в лист

S := XLApp.Workbooks[1].WorkSheets['Delphi Data'];