IMHO.WS

IMHO.WS (https://www.imho.ws/index.php)
-   Программирование (https://www.imho.ws/forumdisplay.php?f=40)
-   -   TStringGrid (https://www.imho.ws/showthread.php?t=18124)

CYD 18.12.2002 12:11

TStringGrid
 
Снова я уважаемые:))
Как уничтожить ряд в СтрингГрид? я делал так:
SG.Rows[i].Destroy
---
SG.Rows[i].free


не работает:(
Помогите плз.

YAS 18.12.2002 21:08

Создай процедуру переноса данных из одной строки в другую. Потом перемещаешь все строки, расположенные ниже удаляемой на одну вверх, а последнюю обнули (очисти и т.п.)

RaZEr 18.12.2002 21:23

Все, что приходит в голову, так это:

Через Cols[i].Move(удаляемый_ряд,последний_ряд) передвинуть весь ряд в конец и затем его грохнуть RowCount := RowCount-1;

CYD 19.12.2002 08:57

Во, разер, хорошая идея! Спасиб...
Яс, те тож :)

CYD 19.12.2002 11:46

не пашет идея :(
эксепшн вызывает

denver 19.12.2002 11:59

код приведи

CYD 20.12.2002 01:13

Cannot delete or insert rows from grid?:)

CYD 20.12.2002 01:15

begin
SG.Cols[0].Move(1,SG.Rowcount);
SG.Riwcount:=Sg.Rowcount-1
end;

RaZEr 20.12.2002 01:40

Да, есть такое дело . Я смотрю свойства Cols и Rows вообще в ReadOnly, что не делай - возникает ошибка . Ну что тут можно сказать, - компонент явно не рассчитан на такое . Я советую использовать TCustomizeTable .

denver 20.12.2002 06:50

Для справки Rows[0] является типом TStrings и содержит построчно значения колонок первой строки. Менять их местами путем Rows[0].Move никакого нет смысла (оно и не даст). Правильнее делать так:

//первый вариант
begin
// Последний элемент все же имеет индекс RowCount-1
SG.Rows[n]:=sg.Rows[sg.RowCount-1]; // n - номер удаляемого ряда
SG.Rowcount:=Sg.Rowcount-1
end;

Здесь ряд замещается последним. А если надо сдвинуть выше все записи то придется это делать вручную таким же образом:

//второй вариант
for i:=n to SG.RowCount-2 do SG.Rows[i]:=sg.Rows[i+1];
SG.Rowcount:=Sg.Rowcount-1
// n - номер удаляемого ряда

CYD 20.12.2002 10:17

Денвер, пасиб большое, немного доработал и все отлично пашет:)


Часовой пояс GMT +4, время: 13:19.

Powered by vBulletin® Version 3.8.5
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.