
13.05.2011, 14:39
|
Начинающий
|
|
Регистрация: 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{номер удаляемой строки});
|