Реферат: технологическая практика ПрограммаShower-конвертор табличных файлов

OFile := 'pictures.inc';

if not FileExists(EFile) then begin

MessageDlg('Укажите обрабатываемый файл (*.xls).', mtError, [mbOk], 0);

Exit;

end;

E := TAppExcel.Create;

E.OpenFile(EFile);

I := 1;

S := '';

repeat

E.GetValue(i, 1, V);

S := V;

if Trim(S) > '' then begin

label2.Caption:='Чтение |';

label2.Caption:='Чтение /';

label2.Caption:='Чтение -';

label2.Caption:='Чтение \';

label2.Caption:='Чтение |';

label2.Caption:='Чтение /';

label2.Caption:='Чтение -';

label2.Caption:='Чтение \';

L := '';

L := L + '<td class=ra >&nbsp;'+Trim(S)+'</td>';

// цена первая

E.GetValue(i, 2, V);

St := V;

if Trim(St)='' then St := '&nbsp';

L := L + '<td class=rac>&nbsp;'+Trim(St)+'</td>';

// цена вторая