Удаление в Stringgrid [D7]
Medik © (2004-09-22 06:11:00)
Здравствуйте, мастера! Есть StringGrid. У него 2 столбца. В
некоторых ячейках есть числа > 0, а в некоторых 0. Подскажите,
пожалуйста, как удалить строки, в которых в обоих столбцах
0???
GanibalLector (2004-09-23 01:34:00) [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;
З.Ы. Вообще-то Вы конференцией ошиблись
Наверх 
ЧАТ |
Орешник |
|
