ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Поменять местами...
5 сообщений из 5, страница 1 из 1
Поменять местами...
    #32285312
AndreyBond
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreyBond
Гость
В DBGridEh хочу колонки поменять местами c cохранением всех свойств, сделать что то типа этого:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
procedure TfrmOne.FillGrid;
var
  col: TColumnEh;
begin
  ADOQuery1.Active:=false;
  col:=TColumnEh.Create(nil);
  try
    move(DBGridEh1.Columns[ 0 ],col,SizeOf(TColumnEh));
    move(DBGridEh1.Columns[ 1 ],DBGridEh1.Columns[ 0 ],SizeOf(TColumnEh));
    move(col,DBGridEh1.Columns[ 1 ],SizeOf(TColumnEh));
  finally
    FreeAndNil(col);
  end;
  ADOQuery1.Active:=true;
end;

Как это можно реализовать???
...
Рейтинг: 0 / 0
06.10.2003, 16:10
| Ответить | Цитировать | Написать  
Поменять местами...
    #32285322
AndreyBond
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreyBond
Гость
Или что-то похожее на это если рассматривать с адресами:
procedure TfrmOne.FillGrid;
var
col: TColumnEh;
begin
ADOQuery1.Active:=false;
col:=TColumnEh.Create(nil);
try
col:=DBGridEh1.Columns[0];
DBGridEh1.Columns[0]:=DBGridEh1.Columns[1];
DBGridEh1.Columns[1]:=col;
finally
FreeAndNil(col);
end;
ADOQuery1.Active:=true;
end;
...
Рейтинг: 0 / 0
06.10.2003, 16:15
| Ответить | Цитировать | Написать  
Поменять местами...
    #32285350
AndreyBond
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreyBond
Гость
Но должен же такой код работать, почему не работает, компилируется, но не работает:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
var
  col0,col1: TColumnEh;
begin
  ADOQuery1.Active:=false;
  col0:=DBGridEh1.Columns[ 0 ];
  col1:=DBGridEh1.Columns[ 1 ];
  DBGridEh1.Columns[ 0 ]:=col1;
  DBGridEh1.Columns[ 1 ]:=col0;
  ADOQuery1.Active:=true;
end;

Помогите!!!!!
...
Рейтинг: 0 / 0
06.10.2003, 16:32
| Ответить | Цитировать | Написать  
Поменять местами...
    #32285452
oleg_e
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
oleg_e
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
  
  with DBGridEh1 do
  begin
    Columns.Add;
    Columns[Columns.Count- 1 ].Assign(Columns[ 0 ]);
    Columns[ 0 ].Assign(Columns[ 1 ]);
    Columns[ 1 ].Assign(Columns[Columns.Count- 1 ]);
    Columns[Columns.Count- 1 ].Destroy;
  end;
...
Рейтинг: 0 / 0
06.10.2003, 17:23
| Ответить | Цитировать | Написать  
Поменять местами...
    #32285481
pkarklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pkarklin
Участник
Может я конечно не понял, что вы вкладываете в смысл поменять местами, но у всех наследников TCollectionItem есть свойство Index. Почему бы его не использовать.

Код: plaintext
DBGrid1.Columns[ 0 ].Index :=  1 ;
...
Рейтинг: 0 / 0
06.10.2003, 17:38
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Поменять местами...
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]