Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > Расписание

Автор: zagmysa 17.4.2014, 00:43

Здравствуйте, у меня есть БД, таблица расписание выводится  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