Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Почему работает неправильно? Вопрос для профи... 
:(
    Опции темы
aktuba
Дата 10.1.2007, 16:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38
На форме две кнопки и такой код:

Код

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Name := 'Button3';
  Button2.Name := 'Button2';
  Button1.Name := 'Button2';
  Button2.Free;
end;


Объясните plz, поподробнее, почему после выполнения кода Button1 = Button3...


--------------------
user posted image
PM MAIL WWW Skype   Вверх
Rennigth
Дата 10.1.2007, 16:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76
Цитата(aktuba @  10.1.2007,  16:06 Найти цитируемый пост)
Объясните plz, поподробнее, почему после выполнения кода Button1 = Button3... 


и...



--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
Sunvas
Дата 10.1.2007, 16:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89
Цитата(aktuba @  10.1.2007,  16:06 Найти цитируемый пост)
Button1 = Button3

Что-то я не вижу у тебя тут button3..


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
Rennigth
Дата 10.1.2007, 16:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76
Ну вообще-то Button1 <> Button3, вот Button1.Name = Button3.Name.

Добавлено @ 16:20 
Блин, не догоняю чето, пойду вопрос заново читать... smile

Добавлено @ 16:22 
Цитата(aktuba @  10.1.2007,  16:06 Найти цитируемый пост)
Объясните plz, поподробнее, почему после выполнения кода Button1 = Button3... 


Если ты имеешь ввиду почему у тебя после выполнения Button1.Name = Button3... ??? Оптимизатор отключи.


--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
sergejzr
Дата 10.1.2007, 16:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Un salsero
Group Icon


Профиль
Группа: Админ
Сообщений: 13285
Регистрация: 10.2.2004
Где: Германия г .Ганновер

Репутация: 1
Всего: 360
Модератор: Название темы должно отражать ее суть!


--------------------
Me.
FB.
LinkedIn.
ORCID.
YT.
PM WWW IM ICQ Skype GTalk Jabber AOL YIM MSN   Вверх
Rennigth
Дата 10.1.2007, 16:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76
Цитата(Alexeis @  10.1.2007,  16:23 Найти цитируемый пост)
При присваивании присваиваются лишь указатели.

Я вот просто не вижу где он и какие указели присваивает?  smile 


--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
Rodman
Дата 10.1.2007, 16:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122
Цитата(aktuba @  10.1.2007,  15:06 Найти цитируемый пост)
почему после выполнения кода Button1 = Button3... 

потому что ты так присвоил


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
VICTAR
Дата 10.1.2007, 16:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80
Наверное должно быть так?
Код

  Button1.Name := 'Button3';
  Button2.Name := 'Button1'; //а не Button2.Name := 'Button2' иначе ошибка
  Button1.Name := 'Button2';
  Button2.Free;
PM MAIL   Вверх
aktuba
Дата 10.1.2007, 16:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38
ИЗВЕНИТЕ, ошибка вышла. Исходный код такой:

Код

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Name := 'Button3';
  Button2.Name := 'Button1';
  Button1.Name := 'Button2';
  Button2.Free;
end;


Но, вопрос прежний!!!

Это сообщение отредактировал(а) aktuba - 10.1.2007, 16:45


--------------------
user posted image
PM MAIL WWW Skype   Вверх
VICTAR
Дата 10.1.2007, 16:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80
тогда все понятно!
после выполнения Button1.Name := 'Button3' с этой кнопкой больше ничего не происходит, т.к.  по коду больше нет обращения к Button3!!! Все остальные дествия происходят с Button2, которая по ходу меняет свое имя...
PM MAIL   Вверх
Alexeis
Дата 10.1.2007, 16:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
Цитата(aktuba @  10.1.2007,  16:45 Найти цитируемый пост)
Но, вопрос прежний!!!

Так вопрос толком и не прозвучал  smile 

в чем смысл дважды присваивать значение полю name одного и того же объекта  Button1?


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
aktuba
Дата 10.1.2007, 17:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38
Цитата

Так вопрос толком и не прозвучал  smile 

в чем смысл дважды присваивать значение полю name одного и того же объекта  Button1? 


Вопрос: почему после завершения кода Button1.Name = 'Button3', если в конце кода происходит Button1.Name = 'Button2';

А зачем смысл? Меня интересует, почему происходит так...


--------------------
user posted image
PM MAIL WWW Skype   Вверх
Rennigth
Дата 10.1.2007, 17:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76
Цитата(aktuba @  10.1.2007,  16:45 Найти цитируемый пост)
Но, вопрос прежний!!!

Добавлю к объяснениям VICTAR и повторюсь. Отключи оптимизатор Delphi (Project Options->Compiler->Code Generation-> Optimization), и посмотри что будет. Дельфи умная иногда бывает и лишний код она игнорирует.


--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
aktuba
Дата 10.1.2007, 18:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38
Цитата

Добавлю к объяснениям VICTAR и повторюсь. Отключи оптимизатор Delphi (Project Options->Compiler->Code Generation-> Optimization), и посмотри что будет. Дельфи умная иногда бывает и лишний код она игнорирует.


Код

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Name := 'Button3';
  Button2.Name := 'Button1';
  Button1.Name := 'Button2';
  Button2.Free;
end


Оптимизатор включен. Да и где тут лишний код? Все задействовано ведь...

Попробуйте у себя: форма, две кнопки, на первой такой обработчик...


--------------------
user posted image
PM MAIL WWW Skype   Вверх
VICTAR
Дата 10.1.2007, 18:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80
aktuba, пойми, после Button1.Name := 'Button3' эта кнопка уже не является Button1, она Button3. Button3 ты нигде не трогаешь! Остальные действия у тебя происходят только с Button2(изначально), которая сначала становиться Button1, затем опять Button2, и в конце концов благополучно умирает...
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0646 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.