[djserz]

Привет всем помогите пожалуйста!Уже мозг плавится!
Как сделать чтобы StringGrid при нажатии на кнопку очищался и удалял все пустые строки (либо все строки кроме шапки)

Вот очистка грида (очищает все кроме шапки но не удаляет строки)

Код:

//Очистка стринггрида
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;

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

Код:

//удаляем выделеную строку
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 дня парюсь помогите пожалуйста!!!!

[NumLock]

Код:

StringGrid1.RowCount := 1;

[djserz]

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

Код:

StringGrid1.RowCount := 1;

Спасибо!Что-то я затупил, всё пошёл на выходные!
в моем случае только вместо 1 нужна 2 и все работает как надо, ещё раз спасибо!

[M.A.D.M.A.N.]

В гриде нумерация с единицы.