VPF::StringGrid1.Rows.Delete - Форум программистов

Valet777

Дата 19.4.2007, 13:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 19.4.2007

Репутация: нет
Всего: нет

Пытаюсь удалить строку из стринггрида с помощью StringGrid1.Rows.Delete, выдает EInvalidGridOperation. Помогите плз, нужно срочно.. smile

Sunvas

Дата 19.4.2007, 15:02 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 2
Всего: 89

Цитата(Valet777 @ 19.4.2007, 13:53

)

выдает EInvalidGridOperation

Правильно, потому что rows[index]:tstrings, тоесть содержит множество записей, хранящихся в в этой строке. Для того, чтобы тебе удалить строку воспользуйся параметром rowcount.

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Valet777

Дата 19.4.2007, 15:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 19.4.2007

Репутация: нет
Всего: нет

А если мне надо удалить строку где то из середины списка, чтоб остальные просто сдвинулись?

Rennigth

Дата 19.4.2007, 15:10 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 15
Всего: 76

Valet777, перезаполнять всю нижнюю часть грида.

--------------------

(* Honesta mors turpi vita potior *)

MetalFan

Дата 19.4.2007, 16:05 (ссылка)

(голосов:1)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128

Код


function DeleteGridRow( AGrid: TStringGrid; ARow: integer ): boolean;
var
   i: integer;
begin
   result := assigned( AGrid ) and
             (AGrid.RowCount > AGrid.FixedRows) and
             (ARow >= AGrid.FixedRows ) and
             (ARow < AGrid.RowCount);
   if not Result then Exit;
   for i := ARow to AGrid.RowCount - 2 do
     AGrid.Rows[i].Assign(AGrid.Rows[i+1]);
   if AGrid.RowCount > (AGrid.FixedRows)+1 then
     AGrid.RowCount := AGrid.RowCount -1
   else
     AGrid.Rows[AGrid.FixedRows].Clear;
end;

--------------------

There are always someone smarter than you...

Valet777

Дата 21.4.2007, 10:55 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 19.4.2007

Репутация: нет
Всего: нет

Спасибо огромное! smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »