Форум: "Базы";
Текущий архив: 2004.10.17;
Скачать: [xml.tar.bz2];

Вниз

Удаление в Stringgrid   Найти похожие ветки 

← →
Medik   (2004-09-22 06:11) [0]

Здравствуйте, мастера! Есть StringGrid. У него 2 столбца. В некоторых ячейках есть числа > 0, а в некоторых 0. Подскажите, пожалуйста, как удалить строки, в которых в обоих столбцах 0???

---

← →
GanibalLector ©   (2004-09-23 01:34) [1]

Что-то вроде этого :

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=1 to StringGrid1.Rowcount-1 do begin
StringGrid1.Cells[2,i]:=inttostr(random(2));
StringGrid1.Cells[1,i]:=inttostr(random(2));
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i,ii,iii,count:integer;
begin
count:=0;
for i:=1 to StringGrid1.rowcount-1 do begin
for iii:=1 to StringGrid1.rowcount-2 do begin
if (StringGrid1.Cells[1,i]="0") and (StringGrid1.Cells[2,i]="0")then begin
     count:=count+1;
     StringGrid1.Cells[1,i]:=""; StringGrid1.Cells[2,i]:="";

     for ii:=i to StringGrid1.Rowcount-1 do begin
     StringGrid1.Cells[1,ii]:= StringGrid1.Cells[1,ii+1];
     StringGrid1.Cells[2,ii]:= StringGrid1.Cells[2,ii+1];
     StringGrid1.Cells[1,ii+1]:=""; StringGrid1.Cells[2,ii+1]:="";
                                            end;
                                                                  end;
                          end;           end;
StringGrid1.RowCount:=StringGrid1.RowCount-count;
end;


З.Ы. Вообще-то Вы конференцией ошиблись

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2004.10.17;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.035 c