Курс лекций по Теме 4

Нижеприведенный пример использует данный класс для создания электронной таблицы.

procedure CreateSpreadsheet(filename: string); var

xl: tExcel; begin

xl := tExcel.create; try

xl.AddWorkBook('c:\graham\excel\sample2\ssddemo.xlt'); xl.visible := true;

xl.cell['a1'] := 'тест'; xl.SaveAs(filename);

finally xl.free;

end; end;