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

[artemavd]

Чтобы я без вас делал коллеги, спасибо вам . Вроде пока работает. Почему у меня не работало - хз.

[GreyW]

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

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

type
  THackGrid = class(TStringGrid);

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

1. Если выношу в отдельный модуль почему-то перестаёт работать.
В чем может быть дело? Как вынести в отдельный модуль?

2. Я новичок в программировании и прошу знающих объяснить как работают круглые скобки после класса а именно Класс-потомок(Объект-родителя) или в примере THackGrid(StringGrid1). Т.е. почему мы не создаем и не инициализируем объект класса THackGrid? Что-то я тут запутался.

[phomm]

type
  THackGrid = class(TStringGrid)
  published
    procedure DeleteRow;
  end;

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

 public
    procedure DeleteRow(Index: Integer);

и добавить в модуль тело данной процедуры из стандартного Grids.pas
Использование скобок в данном случае - операция явного преобразования (explicit cast), мы к уже существующему на форме объекту стринггрид обращаемся как будто к его наследнику (за счёт каста).