StringGrid сравнение

[Aleksandr69]

Подскажите что не так нужно удалить все строки строки с 0 в 2 колонке

type
  THackGrid = class(TStringGrid);

procedure TForm2.Button5Click(Sender: TObject);
 var
 i: integer;

begin

   for i := 1 to Stringgrid1.RowCount -1 do    begin

  if StringGrid1.Cells[2, i] = '0' then

   begin

   THackGrid(StringGrid1).DeleteRow(i);

end;
end;
end;

[Sibedir]

while i < Stringgrid1.RowCount do begin
  if StringGrid1.Cells[2, i] = '0' then
    THackGrid(StringGrid1).DeleteRow(i)
  else
    Inc (i);
end;

[Aleksandr69]

странно но не работает реакция нулевая

[Sibedir]

1. Что такое THackGrid?
2. Возможно в ячйке не "0", а " 0 ". Тогда

  if Pos ('0', StringGrid1.Cells[2, 1]) <> 0 then

Но тут сразу нюанс. Будет не правильно работать, если там "10".
3. Нужно определить i перед циклом

  i := 0;

[ArtGrek]

у меня тут пишет что в StringGrid нелзя добоблят или удалять строки, значит надо проводит имитацию удалениа, смешат все нижестояшие в верх

[Sibedir]

Логично. THackGrid, скорее всего, для этого и существует. Если проблема в нем, хотелось бы посмотреть реализацию.

[Aleksandr69]

1.метод удаления строки
2.сейчас проверю

[ArtGrek]

1.метод удаления строки

выложи, я тоже буду знат как ето делаеца

[Aleksandr69]

Пример взял с этой ветки http://www.programmersforum.ru/showthread.php?t=119166

описание гдето читал в интернете смысл вроде такой что это защищенный метод удаления строки,да удаление еще и подругому делается просто показалось так проще записать

я удалял так

var
  i, j: integer;
begin
  for i := StringGrid1.Row to StringGrid1.RowCount - 1 do
  begin
    for j := 1 to StringGrid1.ColCount - 1 do
    begin
    StringGrid1.Cells[j, i]:=StringGrid1.Cells[j, i+1];
    end;
  end;

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

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

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

выложи, я тоже буду знат как ето делаеца

Вот лови все удаляет

procedure GridDeleteRow(RowNumber: Integer; Grid: TstringGrid);
 var
   i: Integer;
 begin
   Grid.Row := RowNumber;
   if (Grid.Row = Grid.RowCount - 1) then
     { On the last row}
     Grid.RowCount := Grid.RowCount - 1
   else
   begin
     { Not the last row}
     for i := RowNumber to Grid.RowCount - 1 do
       Grid.Rows[i] := Grid.Rows[i + 1];
     Grid.RowCount := Grid.RowCount - 1;
   end;
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   GridDeleteRow(3, stringGrid1);
 end;

в данном случае 3 строку все время

[Aleksandr69]

делаю так все работает но приходиться жать на кнопку три четыре раза что не так

думаю нужно определить что делать программе если в ячейки любое другое чило

  var
  j, i, temp, max: integer;

   begin


   for i := 1 to Stringgrid1.RowCount -1 do    begin

  if StringGrid1.Cells[2, i] = '0' then

   begin

 GridDeleteRow(i, stringGrid1);
   end;
   end;
   end;

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

1. Что такое THackGrid?
2. Возможно в ячйке не "0", а " 0 ". Тогда

  if Pos ('0', StringGrid1.Cells[2, 1]) <> 0 then

Но тут сразу нюанс. Будет не правильно работать, если там "10".
3. Нужно определить i перед циклом

  i := 0;

в ячейки ноль код ниже работает но приходиться жать на кнопку несколько раз

В ячейки или 0 или больше 10

procedure TForm2.Button6Click(Sender: TObject);

  var
   i: integer;

   begin

   i:=1;

   for i := 1 to Stringgrid1.RowCount -1 do    begin

  if StringGrid1.Cells[2, i] = '0' then

   begin

 GridDeleteRow(i, stringGrid1);
   end;
   end;
   end;

Но вот так по идеи должно работать

 if StringGrid1.Cells[2, i] < '10' then