Здравствуйте, у меня есть БД, таблица расписание выводится  StringGrid1. но мне нужно реализовать его так чтобы, если время и день урока совпадет то в эту ящейку присвоить название урока, а если в этой нет совпадающей даты то поставить " - " помогите пож-та найти ошибку...    
вот мой код 

for j:=1 to StringGrid1.ColCount-1 do
  for i:=1 to StringGrid1.RowCount-1 do
  begin
      k[i]:= StringGrid1.Cells[1, j];       //пара
      m[i]:= StringGrid1.Cells[2, j];      //день
      l[i]:= StringGrid1.Cells[3, j];          // название пары
     StringGrid2.Cells[1, j]:=  k[i] ; 
     StringGrid2.Cells[2, j]:=  m[i] ;
     StringGrid2.Cells[3, j]:=  l[i] ;
    end;

  for j:=1 to StringGrid1.ColCount-1 do
  for i:=1 to StringGrid1.RowCount-1 do
   begin
   if  (StringGrid1.Cells[i, 0] = k[i])  and (StringGrid1.Cells[0, j] = m[i]) then
       StringGrid1.Cells[i,j]:= l[i];
 else  StringGrid1.Cells[i, j] := ' - '  ;
    end;

вот так выглядит таблица в StringGrid1

Присоединённый файл ( Кол-во скачиваний: 20 )
 Снимок.JPG 35,21 Kb