Вниз
Скачать: CL | DM;

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

← →
mr-jack   (2005-02-22 20:51) [0]

Привет мастера!такой вопрос,есть объект StringGrid , с одной колонкой :
1111
2222
3333
4444
5555
6666
нужно переставить таблицу так(по номерам строк):
3
4
6
5
2
1
тоесть чтобы получилось
3333
4444
6666
5555
2222
1111

помогите плз,никак не могу догнать,как реализовать это....


← →
Anatoly Podgoretsky ©   (2005-02-22 20:55) [1]

Стандартная задачка для непрогрммирующих пользователей.
A := B
B := C
C := A


← →
mr-jack   (2005-02-22 21:00) [2]

я так и хочу сделать,только не получаеться реализовать в Делфи.
Если не трудно набросок кода можно...меня интересует сам процесс перестановки..


← →
mr-jack   (2005-02-22 21:01) [3]

я так и хочу сделать,только не получаеться реализовать в Делфи.
Если не трудно набросок кода можно...меня интересует сам процесс перестановки..


← →
mr-jack   (2005-02-22 21:17) [4]

нврод реально нужна помошь....=(


← →
Алхимик ©   (2005-02-22 21:17) [5]

StringGrid.Cells - двумерный массив строк. С ним и работай.


← →
mr-jack   (2005-02-22 21:21) [6]

.....я беру в один двумерный массив переписываю содержание таблицы,а одномерный массив индексы строк,в каком порядке мне их надо расположить,теперь мне надо как то всё завезать и расставить таблицу двумер. массива по индексам одномеррного....вот где у меня загвздка..я сам алгоритм не пойму...


← →
mr-jack   (2005-02-22 21:42) [7]

кому не трудно подкиньте кусочек кода...плз!!


← →
begin...end ©   (2005-02-22 21:52) [8]

> mr-jack   (22.02.05 21:42) [7]

Вот пример для обмена местами первого и второго столбца StringGrid:

var
 I: Integer;
 S: String;
begin
 with StringGrid do
   for I := 0 to RowCount - 1 do
   begin
     S := Cells[1, I];
     Cells[1, I] := Cells[2, I];
     Cells[2, I] := S
   end
end.


> mr-jack   (22.02.05 21:21) [6]

Не следует формулировать задачу в таком виде.


← →
mr-jack   (2005-02-22 21:58) [9]

>begin...end ©   (22.02.05 21:52) [8]
спасибо...



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c
4-1106133990
yanker
2005-01-19 14:26
2005.03.06
Количество файлов в директории


14-1108557792
1008
2005-02-16 15:43
2005.03.06
Что бы это могло быть?


1-1108978298
Флюгер
2005-02-21 12:31
2005.03.06
минимизация в Tray


4-1103180482
tradakad
2004-12-16 10:01
2005.03.06
Получение иконки приложения


6-1103885489
Антон
2004-12-24 13:51
2005.03.06
Подключение по локальной сети




   Наверх