Текущий архив: 2002.07.08;
Скачать: CL | DM;

Вниз

Помогите разобраться со StringGirid ом   Найти похожие ветки 

← →
Vladimir.st ©   (2002-06-26 16:25) [0]

Доброго времени суток!!!
Есть форма, есть StringGrid, из него необходимо удалить строку целиком, такой код категорически отказывается работать:
with StringGrid1 do
begin
j:= Col;
Cols[0].Delete(j);
end;
Всем заранее спасибо!!!

---

← →
Kaban ©   (2002-06-26 16:28) [1]

я так понимаю чтобы удалить строку в StringGrid нужно все строки подтянуть вверх и уменьшить их количество на 1. Просто так удалить не удасться.

---

← →
Skier ©   (2002-06-26 17:10) [2]

>Vladimir.st

А если так :


procedure GridUpShift(AStringGrid : TStringGrid; const ARowToDelete : Longint);
var
ii : Integer;
jj : Integer;
begin
if AStringGrid = nil then Exit;
if (ARowToDelete > AStringGrid.RowCount - 1) or
(ARowToDelete < 0) then Exit;

with AStringGrid do begin
if ARowToDelete = RowCount - 1 then begin
Row := Row - 1;
RowCount := RowCount - 1;
Row := RowCount - 1;
end //if
else begin
for ii := ARowToDelete to RowCount - 1 do begin
for jj := 0 to ColCount - 1 do begin
Objects[jj, ii] := Objects[jj, ii + 1];
Cells[jj, ii] := Cells[jj, ii + 1];
end; //for jj
end; //for ii
RowCount := RowCount - 1;
end; //else
end; //with

end;


---

← →
MBo ©   (2002-06-26 17:19) [3]

type
TXGrid=class(TStringGrid);

...
TXGrid(StringGrid1).DeleteRow(2);

---

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

Текущий архив: 2002.07.08;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.012 c