Массив and Таблица

[EugeneIsmatulin]

Есть таблица Нагрузки с полями (предмет, общее кол-во часов по предмету и кол-во часов в неделю), а также есть массив в котором собранно количество предметов из DBLokupComboBox'сов, как можно при нажатии на кнопку сравнить этот получившийся массив с этой таблицей.
Например в массиве у нас есть запись Литература = 6 то есть это 6 повторений и нам нужно умножит на 2 часа т.к. 1 предмет равен 2 часа, получилось 12 часов и он ищет в таблице Нагрузки предмет "Литература" и сравнивает у него в количество часов в неделю с количеством часов из массива и выводит сообщение что Литература у вас больше часов в расписании чем в нагрузке, а если меньше или равно, то отнимает из общего кол-ва часов по предмету, и так по каждому предмету из массива...

[Neeter]

Так как писал предыдущий код собирания значений из DBLookupComboBox'ов, скажу что в массиве значения имеют такой вид:
Литература=6 (без пробелов)

Попробую написать код, потестить сам не смогу, т.к. данной таблицы у меня нет.

Допустим, что массив объявлен в секции private вот так:

private
  a: array of string;

Как я там писал, только объявлял в секции var локально к процедуре заполнения массива.
Еще будем считать, что таблица Нагрузки - Table1.

procedure TForm1.Button1Click(Sender: TObject);
var
 i, j: integer;
 Predmet: string;     //Название предмета в массиве
 HoursPredmets: byte; //Время предметов в неделю - Число после равно * 2
begin        
 if Length(a) <> 0 then
 begin
  for i := 0 to Length(a) - 1 do
  begin                    
   Predmet := Copy(a[i], 1, Pos('=', a[i]) - 1); 
   HoursPredmets := StrToInt(Copy(a[i], Pos('=', a[i]) + 1, Length(a[i]));
   HoursPredmets := NPredmets * 2;  
   
   Table1.First;
   for j := 0 to Table1.RecordCount - 1 do  
   begin
    if Predmet = Table1.FieldByName('Predmet').AsString then    //Ввести вместо 'Predmet' настоящее имя поля
    begin
     if HoursPredmets > Table1.FieldByName('HoursPerWeek').AsInteger then  //'HoursPerWeek' - часы в неделю в таблице, тоже заменить
      ShowMessage(Predmet + ' у вас больше часов в расписании чем в нагрузке.')
     else
      Table1.FieldByName('HoursPerWeek').AsInteger := Table1.FieldByName('HoursPerWeek').AsInteger - HoursPredmets;
     Break;
    end;
    Table1.Next;
   end;
  end;                                               
 end;
end;

Возможно я что-то пропустил... Писал без делфи.

[EugeneIsmatulin]

Всё работает, но как сделать чтобы он сначало проверял всё а потом отнимал у всех, а то при повторном нажатии на кнопку где ошибка он пропускает а у всех отнимет...