Обрезка StringGrid

[artemavd]

Доброе утро! Интересует такой вопрос: как можно выполнить обрезку по столбцам и строкам в StrinGrid? Я имею ввиду, чтобы удалить пустые строки и столбцы. Вот, пробовал делать так:

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

Но в результате выполнения данного кода у меня в StringGrid остается только первая ячейка.

[DIgorevich]

Специально для тебя (тестировалась на Анализаторе ):

var
 col,x: integer;
begin
x:=0;
 for col:=0 to Form1.StringGrid1.ColCount - 1 do
  begin
   if Form1.StringGrid1.Cells[1,col] <> '' then//считаем кол-во непустых столбцов
     x:=x+1;
 end;
 form1.stringgrid1.colcount:=x;
 x:=0;

  for col:=0 to Form1.StringGrid1.RowCount - 1 do
  begin
   if Form1.StringGrid1.Cells[0,col] <> '' then//считаем кол-во непустых строк
     x:=x+1;
 end;
 form1.stringgrid1.rowcount:=x;

end;

[Stilet]

Например так:

var i:integer;
begin
  for i:=StringGrid1.RowCount-1 downto 1 do begin
   StringGrid1.Rows[i].Delimiter:=' ';
   if trim(StringGrid1.Rows[i].DelimitedText)='' then
     sg(StringGrid1).DeleteRow(i);
  end;
end;

Для этого понадобится описание

type
  sg=class(TCustomGrid) end;

DIgorevich

Шож так сложно то?

P.S. прощу прощение пост поправил, давно не работал с этим методом.

[DIgorevich]

Да не сложно вовсе... надо же не только строки, но и столбцы удалять...
Просто он использует не стандартный StringGrid, а RZStringGrid...

[Stilet]

использует не стандартный StringGrid, а RZStringGrid...

Опа!! А предупредить?? А, Автор?

[artemavd]

Опа!! А предупредить?? А, Автор?

А? Что? . Я думал, что принципиальной разницы нету. Но Igorevich вчера сказал мне в чем отличие.

[Stilet]

Я думал, что принципиальной разницы нету.

Ну да... Чего там... Жигули Копейка и Фиат... Какая уж тут разница...