Как удалить выделенную запись из TStringGrid Автор: MBo procedure TForm1.Button3Click(Sender: TObject); var i,j: Integer; begin j:=SG1.Row; // строка с выделением SG1.Rows[j].Clear; for i:=j to SG1.RowCount-2 do SG1.Rows[i].Assign(SG1.Rows[i+1]); SG1.RowCount:=SG1.RowCount-1; end; Copyright © "DELPHI WORLD" E-mail: delphiworld@mail.ru http://www.delphiworld.narod.ru Источник получения информации: http://www.delphiworld.narod.ru
Автор: MBo
procedure TForm1.Button3Click(Sender: TObject); var i,j: Integer; begin j:=SG1.Row; // строка с выделением SG1.Rows[j].Clear; for i:=j to SG1.RowCount-2 do SG1.Rows[i].Assign(SG1.Rows[i+1]); SG1.RowCount:=SG1.RowCount-1; end;