[Maksuckan]

Господа и дамы.
Имеем следующее:

Код:

procedure TForm1.Button3Click(Sender: TObject);
var
 r: integer;
begin
for r:= Stringgrid1.RowCount-1 downto 1 do
    if StringGrid1.Cells[3, r] = '0' then
    THackGrid(StringGrid1).DeleteRow(r);

end;

Удаляем строки, имеющие значение 0.
Но необходимо, чтобы сразу добавлялись и новые чистые строки в конец сетки (то есть таблица оставалась статичной, кол-во строк 25)

[lmikle]

Ну так либо просто добавляй в конец строку, либо просто не удаляй, а переноси данные "вверх", что-то типа:

Код:

procedure PseudoDeleteRow(AGrid : TStringGrid; ARow : Integer);
var
  I, J : Integer;
begin
  For I := ARow To AGrid.Rows-2 Do
    For J := 0 To AGrid.Cols-1 Do
      Begin
         AGrid.Cells[J,I] := AGrid.Cells[J,I+1];
         AGrid.Cells[J,I+1] := '';
      End;
end;