Форум: "Основная";
Текущий архив: 2002.07.08;
Скачать: [xml.tar.bz2];
ВнизПомогите разобраться со 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.049 c