Курсовая работа: Система учёта бракованной продукции (MSAccess, Delphi, ER-Win)

procedure Excel_Out(Filename:string;Fileformat:integer);

function Excel_Get(x,y:integer):variant;

procedure Excel_List(List:integer);

procedure Excel_Link(x,Adres:variant);

procedure Excel_Save(Filename:string;Fileformat:integer);

procedure Excel_ADD(y:integer);

procedure Excel_Color(x,y:integer;color:integer);

procedure Excel_Show(visible:boolean);

published

{ Published declarations }

end;

var

XL, WB, WS: Variant;

Was: boolean;

c: integer;

procedure Register;

implementation

procedure Register;

begin

RegisterComponents('Lipka13', [TlipExcel]);

end;

Function TlipExcel.Excel_open(Filename:string; List:integer):integer;

var

f:file;

begin

if not fileexists(Filename) then

if filename='' then filename:='Default' else exit;

try

// Excel уже запущен?