[ya_]

задача в том, чтобы удалить все пустые строки (наличие отдельных пустых ячеек исключено, пустой может быть только вся строка), т.е. сместить строки так, чтобы таблица была заполнена. свой код выкладывать не буду, хотелось бы узнать, как это видите вы. заранее спасибо.

[Phedor]

Именно StringGrid? ну так при заполнении проверяй и если пусто, то не добавляй в grid.

[AlexSku]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i, j: Integer;
begin
  i:= 0;
  while i <= StringGrid1.RowCount - 1 do
  begin
    if Trim(StringGrid1.Rows[i].Text) = '' then
    begin
      for j:= i to StringGrid1.RowCount - 1 do
        StringGrid1.Rows[j]:= StringGrid1.Rows[j+1];
      StringGrid1.RowCount:= StringGrid1.RowCount - 1;
    end
    else
      Inc(i);
  end;
end;

Точно, когда переходил от for к while, забыл, что границы включаются (или i<RowCount)

[ya_]

О.о спасибо большое... он ругался правда на последнюю пустую строку, но знак равно вот тут

Сообщение от AlexSku

Код:

  while i < StringGrid1.RowCount - 1 do

все поставил на свои места...!! спасибо отдельное за оперативность