Дельфи чтения первенствовать

Блок uExcelUnit; 

интерфейс 

использует 
  Winapi.Windows, System.SysUtils, System.Variants, System.Classes, System.Win.ComObj; 

функционировать OpenExcel (имя файла: строка ): Variant;
Функция ReadCell (первенствуйте: Вариант; sheetIndex: Целое число, строка, столбец: целое число): строка ;
Процедура WriteCell (первенствуйте: Вариант; sheetIndex: Целое число, строка, столбец: Целое; значение: строка );
Процедура CloseExcel (первенствуйте: вариант); 

Функция OpenReadExcel (имя файла: строка ; sheetIndex, строка, столбец: целое число): строка ;
Функция OpenWriteExcel (имя файла: строка; sheetIndex, строка, столбец: Целое число; Значение: строка ): строка ; 

Реализация 


функции OpenReadExcel (имя файла: строка ; sheetIndex, строка, столбец: целое число): строка ;
вар 
  первенствует: Variant; 
начать 
  первенствовать: = OpenExcel (имя файла);
  попробовать 
    Результат: = ReadCell (Excel, sheetIndex, строка, столбец);
  наконец , 
    CloseExcel (Excel); 
  конец ;
конец ; 

Функция OpenWriteExcel (имя файла: строка ; sheetIndex, строка, столбец: Целое; значение: строка ): строка;
вар 
  первенствует: Variant; 
начать 
  первенствовать: = OpenExcel (имя файла);
  попробовать 
    WriteCell (Excel, sheetIndex, строка, столбец, значение); 
  наконец , 
    CloseExcel (Excel); 
  конец ;
конец ; 

функционировать OpenExcel (имя файла: строка ): Variant;
начать 
  Результат: = CreateOleObject ( ' Excel.Application ' ); 
  Result.Visible: = True; 
  Result.WorkBooks.Open (имя файла); 
  Result.Visible: = false;
конец ; 

функцияReadCell (первенствуйте: Вариант; sheetIndex: Целое число, строка, столбец: целое число): строка ;
начинают 
  excel.WorkSheets [sheetIndex] .Activate; 
  Результат: = строка (excel.Cells [строка, столбец]);
конец ; 

Процедура WriteCell (первенствуйте: Вариант; sheetIndex: Целое число, строка, столбец: Целое; значение: строка );
начинают 
  excel.WorkSheets [sheetIndex] .Activate; 
  excel.Cells [строка, столбец]: = значение; 
  excel.ActiveWorkBook.Save; 
конец ; 

Процедура CloseExcel (первенствуйте: вариант);
начать 
  excel.Quit; 
конец ; 

конец .