Показать сообщение отдельно
  #4  
Старый 13.05.2011, 14:39
Janom Janom вне форума
Начинающий
 
Регистрация: 04.02.2011
Адрес: Москва
Сообщения: 148
Версия Delphi: 7
Репутация: 133
По умолчанию

вот процедура:
Код:
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{номер удаляемой строки}); 
Ответить с цитированием