StringGrid сравнение

[Sibedir]

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

Я же уже дал это решение.

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

[Aleksandr69]

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

Я же уже дал это решение.

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

простите ступил,все работает огромное спасибо

[ArtGrek]

вот еше 1 вариант

procedure TForm1.Button1Click(Sender: TObject);
 var
 i, j, k: integer;
begin

  for i := 0 to Stringgrid1.RowCount -1 do
  begin
    if StringGrid1.Cells[1, i] = '0' then
      for j := i to StringGrid1.RowCount - 1 do
        for k := 0 to StringGrid1.ColCount - 1 do
          StringGrid1.Cells[k,j]:=StringGrid1.Cells[k,j+1]
  end;
end;

[Sibedir]

Нет, это не вариант. Если две строки с '0' идут подряд, вторая из них не удалится. Нужен именно while, а не for.

[ArtGrek]

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

Нет, это не вариант. Если две строки с '0' идут подряд, вторая из них не удалится. Нужен именно while, а не for.

согласен, косяк! исправлюсь)

[Aleksandr69]

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

Я же уже дал это решение.

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

Странно работает цикл,если в таблице 2000 строк все очень быстро,а если больше очень медленно удаляет.Как ускорить процесс и почему такая проблема вообще не пойму.

[Sibedir]

Попробуй так:

var
  r, c, i: Integer;
begin
  Randomize;
  i := 1;
  for r := 1 to StringGrid1.RowCount-1 do begin
    if StringGrid1.Cells [2, r] <> '0' then begin
      if r <> i then begin
        for c := 0 to StringGrid1.ColCount-1 do begin
          StringGrid1.Cells [c, i] := StringGrid1.Cells [c, r];
        end;
      end;
      i := i + 1;
    end;
  end;
  StringGrid1.RowCount := i;
end;

[Aleksandr69]

все работает отлично скорость просто супер 2 секунды ,можно подробно почему такой эффект,нужно все переделать по такому принципу

[Sibedir]

Процедура GridDeleteRow каждый раз при ее вызове перемещала все данные ниже удаляемой строчки на 1 вверх, да еще и размер уменьшала на 1. Если строчек с "0" была 1000, то последняя строка перезаписывается 1000 раз. А сейчас каждая строчку перемещается всего единажды, а в конце 1 раз меняется размер стрингрида. Считай в (1000)^0.5 = 31 раз быстрее.
GridDeleteRow применима при одиночных удалениях.

[ArtGrek]

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

Нет, это не вариант. Если две строки с '0' идут подряд, вторая из них не удалится. Нужен именно while, а не for.

procedure TForm1.Button1Click(Sender: TObject);
 var
 i, j, k: integer;
begin
  for i := Stringgrid1.RowCount -1 downto 0 do
  begin
    if StringGrid1.Cells[1, i] = '0' then
      for j := i to StringGrid1.RowCount - 1 do
        for k := 0 to StringGrid1.ColCount - 1 do
         StringGrid1.Cells[k,j]:=StringGrid1.Cells[k,j+1]
   end;
end;