[Fanil]

Здравствуйте. У меня есть в String Grid некое оборудование. Как сделать так , чтобы при нажатии на кнопку у меня стирались значения в первой строке, а всё что было в последующих строках поднималось, соответственно, на одну строку вверх. Заранее спасибо.

[TOJluK]

Написать процедуру, которая будет копировать всю строку с индексом i в строку с индексом i-1 и прогнать ее в цикле

[Fanil]

А по другому никак нельзя?

[Janom]

вот процедура:

Код:

procedure sgRowDelete(Const SG:TStringGrid; Const NumDelRow:Cardinal);
var i:integer;
begin
for i:=NumDelRow to SG.RowCount-1 do
  begin
    if i<SG.RowCount-1 then
      SG.Rows[i].text:=SG.Rows[i+1].Text
      else SG.RowCount:=SG.RowCount-1;
  end;
end;

Вот ее вызов:

Код:

sgRowDelete(StringGrid1,1{номер удаляемой строки}); 

[Fanil]

Не совсем понятно как это сделать ч/з процедуру ButtonClick?

[Janom]

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
sgRowDelete(StringGrid1,1);
end;