Удаление строки в StringGrid работает как-то странно.

[Turboworld]

Добрый вечер!

Написал процедурку удаления строки с указанным номером из StringGrid (все строки, расположенные ниже - сдвигаются вверх, уменьшаем количество строк на единицу). Вот текст процедурки:

PHP код:

procedure DelStroka(var m: TStringGrid; nomer:integer);
var i:integer;
begin
   // идем по игреку - т.е. по СТРОКАМ, нулевую (заголовки) не трогаем
   for i:=1 to m.RowCount-2 do begin
       if i>=nomer then begin
           m.Rows[i]:=m.Rows[i+1];
       end;
   end;
   m.RowCount:=m.RowCount-1; // т.к. мы только что удалили одну строку.
   Form1.Edit1.Text:= inttostr(m.RowCount);
end; 


Процедурка работает, кажется, правильно. Но когда я захотел удалить из таблицы все строки, заданная ячейка которых пустая:

PHP код:

procedure TForm1.Button6Click(Sender: TObject);
var i:integer;
begin
   for i:=1 to StringGrid1.RowCount-1 do begin
     if StringGrid1.Cells[4,i]='' then begin
       DelStroka(StringGrid1,i);
     end;
   end;
end; 


то обнаружил, что удаляются почему-то не все строки, у которых значение заданного столбца пустое. Т.е. кнопку, привязанную к процедуре, нужно нажимать дважды... уже на втором проходе удаляет все строки... но почему необходимо проходить дважды??? Должно же работать сразу - сразу удалять все-все строки, где заданная ячейка равна пусто =''

Не подможете разобраться, в чем причина странной работы кода? =/

[evg_m]

после удаления строки номера всех последующих строк сдвигаются (уменьшаются на 1). в ркзультате строка следкющая за удаленной из анализа выпадает и остается.
чтобы избежать этого анализ надо начинать с конца и идти вверх
for i:=StringGrid1.RowCount-1 dowto 1 do begin

[Turboworld]

Благодарю за подсказку, но я и сам уже додумался ))) Правда я заменил цикл FOR на WHILE (для возможности модификации внутри цикла переменной i). Получилось так:

procedure TForm1.Button6Click(Sender: TObject);
var i:integer;
begin
   i:=1;
   while i<=(StringGrid1.RowCount-1) do begin
     if StringGrid1.Cells[3,i]='' then begin
       DelStroka(StringGrid1,i);
       i:=i-1;
     end;
     i:=i+1;
   end;
end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[evg_m]

Благодарю за подсказку, но я и сам уже додумался )))

Молодец!
Я бы переписал твой код немного переписал

while i<=(StringGrid1.RowCount-1) do begin
     if StringGrid1.Cells[3,i]='' then begin
       DelStroka(StringGrid1,i);
///       i:=i-1;
     end
    else  i:=i+1;
   end;

т.е. перемещение по строкам только при НЕ удалении.