Удаление пустых строк в StringGrid с "поднятием" остальных

[artemavd]

Возникла необходимость в удалении пустых строк в StringGrid, но чтобы оставшиеся "поднялись" наверх, т.е. как бы сдвинулись со своих позиций на -1 значение. Вот так я пробую:

procedure TForm1.Button1Click(Sender: TObject);
var
 row: integer;
begin
 for row:=0 to Form1.StringGrid1.RowCount - 1 do
 begin
  if Form1.StringGrid1.Cells[0,row] = '' then
  begin
   Form1.StringGrid1.Rows.Delete(row);
  end;
 end;
end;

однако ругается на выделенную строку и говорит, что "[Error] Unit1.pas(509): '[' expected but '.' found" Хотя вроде нигде скобки не ставил...

[mihali4]

Подсмотрел в инете изящное решение:

В классе TCustomGrid очень много вкусного находится в секции protected, и, соответственно видно только прямому наследнику - есть один вариант, который часто применяется для открытия защищённых методов:

type
  THackGrid = class(TStringGrid);

procedure TForm1.Button1Click(Sender: TObject); 
begi
  THackGrid(StringGrid1).DeleteRow(StringGrid1.Row);
end;

[artemavd]

Этот код удаляет и пустые и непустые строки в таблице после каждого нажатия на кнопку. Мне же надо, чтобы только пустые удалялись, а остальные перемещались к верху таблицы.

[Stilet]

Ну дык в цикле пройдить
проверь if trim(StringGrid.Rows[i])='' then удалим.

[artemavd]

Так:

procedure TForm1.Button1Click(Sender: TObject);
var
 row: integer;
begin
 for row:=0 to Form1.StringGrid1.RowCount - 1 do
 begin
  if Trim(StringGrid1.Rows[row]) = '' then
  begin
   THackGrid(StringGrid1).DeleteRow(StringGrid1.Row);
  end;
 end;

?
Пишет: "[Error] Unit1.pas(632): There is no overloaded version of 'Trim' that can be called with these arguments"

[Stilet]

Пардонте:

if Trim(StringGrid1.Rows[row].Text) = '' then

Забыл...

[artemavd]

Все равно после нажатия на кнопку удаляет все строки))

[mihali4]

Ну елы-палы... Чуть-чуть внимательности побольше

var
 row: integer;
begin
 for row:=1 to Form1.StringGrid1.RowCount - 1 do //наверняка шапка, которую обрабатывать не нужно ?
 begin
  if Trim(StringGrid1.Rows[row].Text) = '' then
  THackGrid(StringGrid1).DeleteRow(row);
 end;
 end;

[artemavd]

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

[mihali4]

Убрал шапку.
Все работает нормально. Button8 заполняет StringGrid, потом я вручную очищаю любую строку и Button7 ее (и только ее) удаляет. Вот код:

procedure TForm1.Button7Click(Sender: TObject);
var
 row: integer;
begin
 for row:=0 to Form1.StringGrid1.RowCount - 1 do
 begin
  if Trim(StringGrid1.Rows[row].Text) = '' then
  THackGrid(StringGrid1).DeleteRow(row);
 end;
 end;

procedure TForm1.Button8Click(Sender: TObject);
var i,j: integer;
begin
for i:=1 to StringGrid1.ColCount-1 do
for j:=0 to StringGrid1.RowCount-1 do
StringGrid1.Cells[i,j]:=IntToStr(i)+IntToStr(j);
end;

Первый фиксированный столбец оставил.
Убрал и его - все нормально...