Консультации Портала - Консультация #109088

Задать вопрос Консультации Пользователи Форум

Задать вопрос экспертам

Консультация № 109088

12.11.2007, 17:17

0.00 руб.

0 3 3

Компьютеры Программирование

Здравствуйте!!! Подскажите пожалйста, как удалить строку i в компоненте TStringGrid. Мои попытки не увенчались успехом.
Я использовал в Delphi 7:
Rows.Delete(i) - ничего не делает (ошибка компиляции)
Rows[i].Delete(1) - ошибка (не может удалить). Это, как я вычитал потом, удаляет 1 ячейку в i строке.

В общем надо удалить строку из StringGrid программно в Delphi 7.
Спасибо за внимание

Обсуждение

Неизвестный

12.11.2007, 17:22

общий

это ответ

Здравствуйте, Piit!
в TStringGrid нет стандартного удаления строки - можно только изменить кол-во строк
поэтому придется перенести данные из всех строк ниже на строку выше, после чего уменьшить кол-во строк в таблице на 1

Неизвестный

12.11.2007, 17:43

общий

это ответ

Здравствуйте, Piit!

Я делал следующим образом:
1) Значения i-той строки заменял значением последней строки.
2) Уменьшал количество строк TStringGrid на единицу.

P.S.: Это хорошо, если массив не отсортирован.

Неизвестный

12.11.2007, 18:08

общий

это ответ

Здравствуйте, Piit!

верно замечено в предыдущем ответе, потому следует писать свою процедуру, которая и будет выполнять указанные действия:

<code>procedure DelRow(SGrid:TStringGrid; _row:integer);
var i,j:integer;
begin
 with SGrid do
 for i:=_row-1 to RowCount-2 do
 for j:=0 to ColCount-1 do
 begin
 Cells[j,i]:=Cells[j,i+1];
 end;
 SGrid.RowCount:=SGrid.RowCount-1;
end;</code>

А вот непосредственно вызов процедуры:
<code>DelRow(StringGrid1,3); //удаляем из StringGrid1 3-ю строку.</code>

Good Luck!!!

Форма ответа

Отправка постов/ответов доступна только зарегистрированным и подтвержденным пользователям.

Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.