|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
перестановка данных в стринггрид
Мне нужно что бы при нажатии кнопки перестановка, было вот так, допустим в первом стринггриде вводимстаж=50000 оклад=4, а при нажатии кнопки менялось на так: стаж=4 окдлад=50000
Код:
procedure TForm1.BitBtn1Click(Sender: TObject); var i,j:integer;begin for j:=0 to StringGrid1.ColCount-1 do for i:=0 to StringGrid1.RowCount-1 do StringGrid2.Cells[j,i]:=StringGrid1.Cells[(StringGrid1.ColCount-1)-j,i]; end; procedure TForm1.Formcreate(Sender: TObject); begin StringGrid1.ColCount:=3; StringGrid1.RowCount:=3; StringGrid1.DefaultColWidth:=90; StringGrid1.Cells[0,0]:=' фамилия '; StringGrid1.Cells[1,0]:='Стаж '; StringGrid1.Cells[2,0]:='оклад '; StringGrid2.ColCount:=3; StringGrid2.RowCount:=3; StringGrid2.DefaultColWidth:=90; StringGrid2.Cells[0,0]:=' Фамилия '; StringGrid2.Cells[1,0]:='Стаж '; StringGrid2.Cells[2,0]:='Оклад'; end; end. Но он во втором гриде оставляет все точно так же если меняю во втором гриде строки Код:
StringGrid2.Cells[1,0]:='Стаж '; StringGrid2.Cells[2,0]:='Оклад'; на Код:
StringGrid2.Cells[1,0]:='оклад '; StringGrid2.Cells[2,0]:='стаж'; тогда все нормально. но мне это не очень нравится, может какое условие можно сделать? или ещё что то? |
#2
|
|||
|
|||
Перестановку столбцов можно делать мышкой (опция goColMoving), но переместятся и данные и шапка.
|
#3
|
|||
|
|||
Цитата:
неа, мне нужно при нажатии на копку, если я так сделал это правильно будет? как я выше указал? |