Как удалить строку из середины Stringgrid а?

← →
rank © (2002-04-25 02:07) [0]

Друзья! Подскажите пожалуйста как мне удалить строку из этого несчастного stringgrid"a. Проблема в том, что строка не последняя, а находится где-то внутри stringgrida, необходимо не просто стереть ее , но и сдвинуть всю таблицу вверх.
Заранее спасибо!!!!

← →
3d[Power] © (2002-04-25 03:46) [1]

делаешь цикл, удаляешь строку стринггрида, а все последущие смещаешь вверх. после чего уменьшаешь rowcount на 1.

← →
KilkennyCat © (2002-04-25 05:53) [2]

если воспользуешься TAdvStrigGrid,
то никахих проблем , удаляй хоть несколько нерядом лежащих строк, сдвиг будет автоматом.

← →
Dy-Ty (2002-04-25 09:09) [3]

Попробуй так, не проверял, но должно получиться, а вообще почитай Кулибу, там много чего можно найти

type
TCSGrid = class(TStringGrid)
private
public
procedure MoveRow (FromIndex, ToIndex: Longint);
end;

//-----------------------------------------------------------
procedure TCSGrid.MoveRow(FromIndex,ToIndex: Longint);
begin
RowMoved(FromIndex, ToIndex); { Защищенный метод TStringGrid }
end;
//------------------------------------------------------------
procedure DeleteRow(Sender: TStringGrid; FromIndex: Longint);
begin
if FromIndex>l;=0 then
with TCSGrid(Sender) do
if (RowCount>0)and(FromIndex<RowCount) then begin

if (FromIndex<RowCount-1) then
MoveRow(FromIndex,RowCount-1);
Rows[RowCount-1].Clear;
RowCount := RowCount-1;
end else MessageBeep(0)
else MessageBeep(0);
end;

уважаю авторские права
Создано: Dennis Passmore
1929 Mango Tree Drive
Edgewater, Fl. 32141
CIS: 71640,2464
Март 1, 1996

← →
Андрей Сенченко © (2002-04-25 09:21) [4]

Я так делал:
GridRow := { здесь ставим номер удаляемой строки } ; // Перемещаем строки наверх For i := 0 to FmMain.StGridWork.ColCount - 1 do For j := GridRow to FmMain.StGridWork.RowCount - 1 do FmMain.StGridWork.cells[i,j] := FmMain.StGridWork.cells[i,j+1]; FmMain.StGridWork.RowCount := FmMain.StGridWork.RowCount - 1;

← →
Андрей Сенченко © (2002-04-25 09:23) [5]

← →
MBo © (2002-04-25 12:29) [6]

Удаление строки из позиции N (SG-StringGrid1)

if N<SG.RowCount-1 then
for i:=N to SG.RowCount-2 do
SG.Rows[i].Assign(SG.Rows[i+1]);
SG.RowCount:= SG.RowCount-1;

альтернатива – использование protected метода TCustomGrid DeleteRow
type
TXGrid=class(TCustomGrid);

if N<SG.RowCount then
TXGrid(StringGrid1).DeleteRow(N);

Намудрили-то, намудрили...
var k, m : integer; begin if Form1.SG.RowCount < 3 then Exit; for k := Form1.SG.Row to Form1.SG.RowCount-1 do for m := 0 to SG.ColCount-1 do SG.Cells[m,k] := SG.Cells[m,k+1]; Sg.RowCount := SG.RowCount-1; SG.Height := SG.Height-24; end;

Спасибо ребята! Усе испробую!!!!!!

Если все испробуешь - то уже не одну строку, а 7 удалишь.

Как удалить строку из середины Stringgrid а? Найти похожие ветки