Предыдущая страница реферата | 3  4  5  6  7  8  9  10  11  12  13 | Следующая страница реферата

OFile := 'pictures.inc';

Free;

end else *)

// if (EFile = '') or not FileExists(EFile) then begin

// EFile := 'C:TmpNachalniy Fileprice33.xls';

// OFile := 'pictures.inc';

EFile := Edit1.Text;

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:='Чтение |';

Рекомендуем скачать другие рефераты по теме: дипломная работа исследование, реферат группы.



Предыдущая страница реферата | 3  4  5  6  7  8  9  10  11  12  13 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки