Модераторы: 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   Вверх
aktuba
Дата 10.1.2007, 18:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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

после Button1.Name := 'Button3' эта кнопка уже не является Button1


Как так? smile 

 в таком случае, после 
Код

  Button1.Name := 'Button3';
  Button2.Name := 'Button1';


Button2 должна указывать на Button3, а после
Код

  Button1.Name := 'Button2';
  Button2.Free;


должно все удаляться??? тоже не верно.




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


Эксперт
***


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

Репутация: 37
Всего: 80
ок, давай так:
Изначально Button1=кнопка №1
Изначально Button2=кнопка №2

теперь:
Код

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Name := 'Button3'; //кнопка №1 становиться Button3 (на форме теперь нет кнопки Button1, любое обращение к Button1 например Button1.Caption:='123' вызовет ошибку (не веришь - проверь) )
  Button2.Name := 'Button1'; //кнопка №2 становиться Button1 (на форме теперь две кнопки Button3 и Button1) 
  Button1.Name := 'Button2'; //кнопка №2 опять становиться Button2  (на форме теперь две кнопки Button3 и Button2) 
//что мы получили: Button3 - это кнопка №1, со всеми ее свойствами
//Button2 - это кнопка №2, со всеми ее свойствами (т.е. она не изменилась)
  Button2.Free; //в итоге уничтожаем Button2(она же кнопка №2)
end


уф-ф. Надеюсь понятно

Это сообщение отредактировал(а) VICTAR - 10.1.2007, 18:36
PM MAIL   Вверх
Beltar
Дата 10.1.2007, 18:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 3
Всего: 7
Попробуй создать на форме кнопки и присвоить одной из них имя уже существующей. Нифига не выйдет. Name это уникальное свойство, оно вроде как идентифицирует объект. Зачем тебе все это понадобилось? А что чем является лучше посмотри под отладчиком, для этого получи адреса кнопок. Оптимизатор действительно лучше отключить.


--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы. smile(с) я, хотя может и нет
Пищущий на C++ мужик. Даже если это мужик сидит в написанном на Delphi и жрущем паскалевскую библиотеку билдере.
PM MAIL   Вверх
Sunvas
Дата 10.1.2007, 18:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 28
Всего: 89
Ща попробую объяснить, только не знаю подберу ли нужные слова, чтобы меня поняли. smile 
Вся эта катавасия происходит потому что есть описание объекта и имя объекта. Это по-сути две разные вещи, но Делфи в Desing time это объеденил в одно понятие, чтобы нам было легче. Поэтому и возникает путаница.
Присвоение имени объекту в run time имхо сделано только когда мы и сам объект создаем в run time
Приведу простой пример, где покажу, что имя объекту можно и не присваивать (оно будет пустым):
Код

var b:tbutton;
    i:word;
begin
for i:=0 to 10 do
begin
b:=tbutton.Create(self);
b.Parent:=form1;
b.Top:=i*30;
if i=5 then b.Name:='bb'; //<-для примера как обратиться к пятой кнопке.
end;

Теперь, если мы захотим обратиться к пятой кнопке, мы напишим:
Код

(findcomponent('bb') as tbutton).Caption:='button';

Из этого вывод, что объект может имени вообще не иметь:
Код

  Button1.Name := '';
  Button2.Name := '';

, а описание может не соответствовать имени.
Поэтому при обращении к объекту через его описание в проблеме автора Делфи ищет объект с таким же именем функцией findcomponent , и если не находит, то ничего не делает.

Это сообщение отредактировал(а) Sunvas - 10.1.2007, 19:00


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


Зелёненький
*


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

Репутация: -2
Всего: 2
попробуй сделать вот так  smile 
Код

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

--------------------
PM MAIL ICQ   Вверх
VICTAR
Дата 11.1.2007, 14:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 37
Всего: 80
Цитата(Magister Y0da @  11.1.2007,  13:52 Найти цитируемый пост)
попробуй сделать вот так   

код Pascal/Delphi
procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Name := 'Button3';
  Button2.Name := 'Button1';
  Button3.Name := 'Button2';
  Button2.Free;
end


Не откомпилируется, т.к. изначально на форме нет Button3.
Решить просто, только надо понять что требуется автору  smile 
PM MAIL   Вверх
Magister Y0da
Дата 11.1.2007, 14:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Зелёненький
*


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

Репутация: -2
Всего: 2
ну... эээ.....
у нас ведь имя меняется с Button1 а Button3, а потом обратно
вроде так
--------------------
PM MAIL ICQ   Вверх
aktuba
Дата 11.1.2007, 14:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 16
Всего: 38
Magister Y0da, в исходном вопросе было указано, что на форме ДВЕ кнопки ( Button1 и Button2)...


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


Зелёненький
*


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

Репутация: -2
Всего: 2
Цитата

Решить просто, только надо понять что требуется автору

тогда не понимаю что ему от нас надо  smile 
Цитата

ок, давай так:
Изначально Button1=кнопка №1
Изначально Button2=кнопка №2

код Pascal/Delphi
procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Name := 'Button3'; //кнопка №1 становиться Button3 (на форме теперь нет кнопки Button1, любое обращение к Button1 например Button1.Caption:='123' вызовет ошибку (не веришь - проверь) )
  Button2.Name := 'Button1'; //кнопка №2 становиться Button1 (на форме теперь две кнопки Button3 и Button1) 
  Button1.Name := 'Button2'; //кнопка №2 опять становиться Button2  (на форме теперь две кнопки Button3 и Button2) 
//что мы получили: Button3 - это кнопка №1, со всеми ее свойствами
//Button2 - это кнопка №2, со всеми ее свойствами (т.е. она не изменилась)
  Button2.Free; //в итоге уничтожаем Button2(она же кнопка №2)
end

уф-ф. Надеюсь понятно


блин теперь увидел  Sorry
--------------------
PM MAIL ICQ   Вверх
Страницы: (2) [Все] 1 2 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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