Привет всем помогите пожалуйста!Уже мозг плавится!
Как сделать чтобы StringGrid при нажатии на кнопку очищался и удалял все пустые строки (либо все строки кроме шапки)
Вот очистка грида (очищает все кроме шапки но не удаляет строки)
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | procedure Tform1.cleansg(Sender: TObject);
var n2:integer;
begin
with StringGrid1 do begin
for n2:=1 to RowCount do begin
Rows[n2].Clear;
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
cleansg(Sender);
end;
|
а вот процедура удаления строки
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | procedure TForm1.N10Click(Sender: TObject);
var
i,j: Integer;
begin
j:=form1.StringGrid1.Row;
if (j = 1) and (StringGrid1.RowCount <= 2) then
begin
with form1.StringGrid1 do
for i:= 0 to ColCount - 1 do Cells[i, j]:= '';
exit;
end;
form1.StringGrid1.Rows[j].Clear;
for i:=j to StringGrid1.RowCount-2 do
form1.StringGrid1.Rows[i].Assign(form1.StringGrid1.Rows[i+1]);
form1.StringGrid1.RowCount:=form1.StringGrid1.RowCount-1;
end;
|
А как сделать чтобы он удалял сразу все сроки (кроме шапки) я понять не могу, застрял уже 2 дня парюсь помогите пожалуйста!!!!
03.04.2015, 12:42
Очистка Stringrid c удалением всех сторк
Линейный вид
