Перемещение строк в StringGrid

← →
Gizza © (2006-07-02 10:03) [0]

Доброго времени...
Все хэлпаки облазил, не нашел...
Подскажите пожалуйста, можно ли как нибудь легко сдвинуть (например, строки с 7 по StringGrid1.rowcount) вверх на одну строчку (естественно, она пустая).

Если нет, придется каждую строчку копировать в предыдущую, удалять текущую, как то это неудобно и муторно....

Заранее спасибо.

← →
SUN_ALF © (2006-07-02 13:03) [1]

То, о чём Вы говорите, есть ничто иное, как исключение целой строки из таблицы. Я сам как-то раз искал подобную вещь, но никаких ДелетеРоу так и не нашел :((

← →
PSPF2003 © (2006-07-02 13:08) [2]

Можно в цикле

← →
Gizza © (2006-07-02 13:34) [3]

> Можно в цикле

Вот, сделал... кому надо пользуйтесь:

var delrow: TGridRect; movrow:integer; delrow:=grid1.Selection; for movrow:=delrow.Top to grid1.RowCount-1 do begin grid1.Rows[movrow].Text := grid1.Rows[movrow+1].Text; grid1.Rows[movrow+1].Clear; end;

← →
MBo © (2006-07-02 14:26) [4]

THackGrid = class(TStringGrid);

...
THackGrid(StringGrid1).DeleteRow(1);

← →
Gizza © (2006-07-02 19:55) [5]

> THackGrid = class(TStringGrid);

А как это ввести в форму, на которой нет TStringGrid?
Всмысле таблица на одной форме, а кнопка, кот удаляет строки на другой...

← →
MBo © (2006-07-02 20:32) [6]

>А как это ввести в форму, на которой нет TStringGrid?
Прямо так и написать в разделе type нужного модуля

← →
Gizza © (2006-07-02 21:01) [7]

> Прямо так и написать

Прямо так и написал, но "говорит": ERROR, мол на форме нет никаких TStringGrid, и дальше работать не буду.....

← →
Leonid Troyanovsky © (2006-07-02 21:03) [8]

> Gizza © (02.07.06 21:01) [7]

> Прямо так и написал, но "говорит": ERROR, мол на форме нет
> никаких TStringGrid, и дальше работать не буду.....

Не верю.

--
Regards, LVT.

← →
Жуков Олег (2006-07-02 21:29) [9]

> мол на форме нет никаких TStringGrid, и дальше работать
> не буду.....

1. Прямо так и говорит что именно на форме нет?
2. Если не 1., тогда uses Grids; иначе - уже ничем не поможешь.

← →
Gizza © (2006-07-02 22:44) [10]

> 1. Прямо так и говорит что именно на форме нет?

Пишу дословно:
[Error] Unit2.pas(87): Local class, interface or object types not allowed [Error] Unit2.pas(87): Class type required

И курсор ставит после:
THackGrid = class( курсор TStringGrid);

> Gizza © (02.07.06 22:44) [10]

> [Error] Unit2.pas(87): Local class, interface or object
> types not allowed

Кликни мышью на эту строку и нажми F1,
Читать вдумчиво.

--
Regards, LVT.

> Кликни мышью на эту строку и нажми F1,Читать вдумчиво.

Хнык, там на английском, не очень то вдумчиво получается....

> Gizza © (02.07.06 23:06) [12]

> Хнык, там на английском, не очень то вдумчиво получается.

Ну а слово "Example" понятно?
Может именно он спасет отца русской демократии?

--
Regards, LVT.

Всё равно ни фига не понял...
Ладно уж, забейте, я ручками.....

как уже сказали, в uses должен быть указан модуль Grids, чтобы компилятор знал про TStringGrid.

Сильно настораживает номер строки
>[Error] Unit2.pas(87):
он далеко не 17 ;)
В каком меcте модуля ты вписал эту строку?

Перемещение строк в StringGrid Найти похожие ветки