Проблема с выборкой из стрингрита...

@arashvg · Регистрация: 08.07.2009

Author24 — интернет-сервис помощи студентам

Собственно есть два стрингрита, делаю в цыкле выборку из первого и записываю во второй, но почмуто не пашет код, я уже голову сломал что может быть не так...

Delphi

 n:=1;
      t:=1;
      for i:=1 to StringGrid1.RowCount do
      begin
      if StringGrid1.Cells[2,t]<>'' then
        begin
        s1:=StringGrid1.Cells[2,t];
        label1.Caption:=s1; ///вывожу чтобы убедится что значение считано
        label2.Caption:=label2.Caption+inttostr(pos('сериал',s1)); /// видно что есть как нулевые вхождения так и значения отличны от нуля
        if pos('сериал',s1)<>0 then   
        t:=t+1 ///если есть совпадение то просто увеличиваю счетчик   
        else
            begin ///если совпадения нету то должно записать в первый стрингрид, но ничего не проиходит...
            StringGrid2.Cells[0,n]:=StringGrid1.Cells[2,t];
            n:=n+1;
            t:=t+1;
            StringGrid1.RowCount:=n;
            end;
        end;
      end;

Добавлено через 23 минуты
ошибку нашол, пошу прощения за глупый вопрос... вся лажа была с StringGrid1.RowCount:=n;

	27.09.2011, 13:58