Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > Почему работает неправильно?


Автор: aktuba 10.1.2007, 16:06
На форме две кнопки и такой код:

Код

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


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

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


и...

Автор: Sunvas 10.1.2007, 16:12
Цитата(aktuba @  10.1.2007,  16:06 Найти цитируемый пост)
Button1 = Button3

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

Автор: Rennigth 10.1.2007, 16:18
Ну вообще-то Button1 <> Button3, вот Button1.Name = Button3.Name.

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

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


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

Автор: sergejzr 10.1.2007, 16:22
Модератор: Название темы должно отражать ее суть!

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

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

Автор: Rodman 10.1.2007, 16:36
Цитата(aktuba @  10.1.2007,  15:06 Найти цитируемый пост)
почему после выполнения кода Button1 = Button3... 

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

Автор: VICTAR 10.1.2007, 16:44
Наверное должно быть так?
Код

  Button1.Name := 'Button3';
  Button2.Name := 'Button1'; //а не Button2.Name := 'Button2' иначе ошибка
  Button1.Name := 'Button2';
  Button2.Free;

Автор: aktuba 10.1.2007, 16:45
ИЗВЕНИТЕ, ошибка вышла. Исходный код такой:

Код

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


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

Автор: VICTAR 10.1.2007, 16:48
тогда все понятно!
после выполнения Button1.Name := 'Button3' с этой кнопкой больше ничего не происходит, т.к.  по коду больше нет обращения к Button3!!! Все остальные дествия происходят с Button2, которая по ходу меняет свое имя...

Автор: Alexeis 10.1.2007, 16:53
Цитата(aktuba @  10.1.2007,  16:45 Найти цитируемый пост)
Но, вопрос прежний!!!

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

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

Автор: aktuba 10.1.2007, 17:14
Цитата

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

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


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

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

Автор: Rennigth 10.1.2007, 17:14
Цитата(aktuba @  10.1.2007,  16:45 Найти цитируемый пост)
Но, вопрос прежний!!!

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

Автор: aktuba 10.1.2007, 18:01
Цитата

Добавлю к объяснениям 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


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

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

Автор: VICTAR 10.1.2007, 18:09
aktuba, пойми, после Button1.Name := 'Button3' эта кнопка уже не является Button1, она Button3. Button3 ты нигде не трогаешь! Остальные действия у тебя происходят только с Button2(изначально), которая сначала становиться Button1, затем опять Button2, и в конце концов благополучно умирает...

Автор: aktuba 10.1.2007, 18:14
VICTAR,
Цитата

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


Как так? smile 

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

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


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

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


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

Автор: VICTAR 10.1.2007, 18:32
ок, давай так:
Изначально 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


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

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

Автор: Sunvas 10.1.2007, 18:55
Ща попробую объяснить, только не знаю подберу ли нужные слова, чтобы меня поняли. 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 , и если не находит, то ничего не делает.

Автор: Magister Y0da 11.1.2007, 13:52
попробуй сделать вот так  smile 
Код

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

Автор: VICTAR 11.1.2007, 14:00
Цитата(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 

Автор: Magister Y0da 11.1.2007, 14:21
ну... эээ.....
у нас ведь имя меняется с Button1 а Button3, а потом обратно
вроде так

Автор: aktuba 11.1.2007, 14:22
Magister Y0da, в исходном вопросе было указано, что на форме ДВЕ кнопки ( Button1 и Button2)...

Автор: Magister Y0da 11.1.2007, 15:02
Цитата

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

тогда не понимаю что ему от нас надо  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

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)