[Master-Sergey]

Нужна помошь!

Задача такова:

Имеется расписание(в Excel'евском файле) для определенных груп:

___А________B___________C__________D__________E___ __
1| Пары | Группа №1 | Группа №2 | Группа №3 | Группа №4|
------------------------------------------------------------
2|1 пара | Математика | нет пары | Физика | нет пары |
--------------------------------------------------------------
3|2 пара | Информатика | Физика | Астрономия | География |
--------------------------------------------------------------
4|3 пара | Физика | математика| информат | Математика |
--------------------------------------------------------------

С помошью Делфи проверить есть ли у Групп с 1-й по 4-ю первая пара:
1-я пара Группа №1 - Математика
1-я пара Группа №2 - Нет пары
1-я пара Группа №3 - Физика
1-я пара Группа №4 - Нет пары

Помогите пожалуйста!

[Drozh]

Считываешь данные в массив, и далее работаешь с ним

Код:

uses
 ComObj;
...

var
 XL: Variant;
 i, j: Integer;
 Ras: array [0..3, 0..2] of String;
begin
 XL := CreateOleObject('Excel.Application');
 XL.DisplayAlerts := False;
 XL.WorkBooks.Open(Путь к файлу);
 XL.Visible := False;

  for i := 0 to 3 do
   for j := 0 to 2 do
    Ras[i, j] := XL.WorkBooks[1].WorkSheets[1].Cells[j+2, i+2];

 XL.Quit;

теперь просто анализируешь массив Ras