Форум: "Основная";
Текущий архив: 2004.09.12;
Скачать: [xml.tar.bz2];

Вниз

StringGrid: удаление строки   Найти похожие ветки 

← →
Луарвик   (2004-08-29 13:01) [0]

Пишу:
Stringgrid1.Rows[Stringgrid1.Row].Delete(0);
Stringgrid1.Rows[Stringgrid1.Row].Delete(1);
Исключительная ситуация!

---

← →
begin...end ©   (2004-08-29 13:07) [1]

Не надо так писать. Сдвигаем вверх и уменьшаем количество.

---

← →
Луарвик   (2004-08-29 13:10) [2]

Ага, ясно!

---

← →
begin...end ©   (2004-08-29 13:15) [3]

var
 I, J, DeleteIndex: Integer;
 SG: TStringGrid;

begin
 ...
 with SG do
 begin
   for I := 0 to ColCount - 1 do
     for J := DeleteIndex to RowCount - 2 do
       Cells[I, J] := Cells[I, J + 1];
   RowCount := RowCount - 1;
 end;
 ...
end.

---

← →
Луарвик   (2004-08-30 15:27) [4]

Не пашет!!! Искл. ситуация EAccessViolation...

---

← →
begin...end ©   (2004-08-30 16:28) [5]

На какой строке ошибка?

---
Sorry, i"m drunk now!

---

← →
Луарвик   (2004-08-30 21:15) [6]

var
I, J, DeleteIndex: Integer;
SG: TStringGrid;
begin
DeleteIndex:=1;
with SG do
begin
  for I := 0 to ColCount - 1 do
    for J := DeleteIndex to RowCount - 2 do
>>>>>> Cells[I, J] := Cells[I, J + 1]; <<<<<<
  RowCount := RowCount - 1;
end;
end;

---

← →
begin...end ©   (2004-08-30 21:27) [7]

> [6] Луарвик   (30.08.04 21:15)

Хм, странно...

Постой-ка, SG - ты так и написал его в var, что ли? Я-то имел в виду grid у тебя на форме.

---

← →
Луарвик   (2004-08-30 21:34) [8]

Блин, точно! Забыл просто :-)

---

← →
Луарвик   (2004-08-30 21:41) [9]

Да! Пасибо!

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.09.12;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.035 c