Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Нужна помощь!!! [D6, WinXP]


Страницы:   1 2 3 4

АлексЧерных ©   (2006-10-05 11:20:00) 

Люди, помогите! На лабах препод задал задачу. Сделать не возможно. Помогите. Вот текст условия: При нажатии на кнопку текст надписи на ней становится наклонным, при повторном нажатии - снова обычным. Можно пользоваться только присвоениемм. Использовать условный опрератор НЕЛЬЗЯ. Помогите.


clickmaker   (2006-10-05 13:09:00) [41]


> одним оператором присваивания

четырьмя


oxffff   (2006-10-05 13:06:00) [42]

han_malign ©  
> А кто скажет вариант ВООБЩЕ без любых операторов, кроме присвоения?
- тоже классически вариант, при этом альтернативный стиль может быть
произвольным, а не только одним флагом отличаться. Но т-с-сс...

Мне действительно сейчас в голову ничего не приходит.
Но очень интересно узнать как сделать исключительно одним оператором присваивания (без -,+,xor,not,and,or и ASM).

Прошу вас han_malign.


han_malign   (2006-10-05 12:59:00) [43]


> Ждем вас Маэстро

- забава такая у гусаров была, не связанная с войной, вином и женщинами... :)


clickmaker   (2006-10-05 12:59:00) [44]


> [33] oxffff ©   (05.10.06 12:55)

не, не буду позориться. Тем более, что так жестко наверно задача не стояла


oxffff   (2006-10-05 12:55:00) [45]


> clickmaker ©   (05.10.06 12:34) [26]
> Однако здесь везде есть что-то кроме присваивания.
> А кто скажет вариант ВООБЩЕ без любых операторов, кроме
> присвоения?


Ждем вас Маэстро


oxffff   (2006-10-05 12:49:00) [46]


> han_malign ©   (05.10.06 12:43) [29]
>
> > font.Style:=[fsItalic]-font.Style;
>
> - а дотошный преподаватель поставит еще и, скажем, fsBold?
>


Button1.Font.Style:=(Button1.Font.Style-[fsItalic])+([fsItalic]-Button1.Font.Style);


sniknik   (2006-10-05 12:49:00) [47]

с чего?

[22] кстати на 1 асемблерную команду больше чем [25] (их там 2! ;о)) а [25] одна хотя паскалевской писанины больше.


clickmaker   (2006-10-05 12:43:00) [48]


> [28] sniknik ©   (05.10.06 12:42)

ну после [22], право, как-то неловко...


han_malign   (2006-10-05 12:43:00) [49]


> font.Style:=[fsItalic]-font.Style;

- а дотошный преподаватель поставит еще и, скажем, fsBold?

> А кто скажет вариант ВООБЩЕ без любых операторов, кроме присвоения?

- тоже классически вариант, при этом альтернативный стиль может быть произвольным, а не только одним флагом отличаться. Но т-с-сс...

Как вариант - вообще стили не трогать, а переключать флажок начинающийся на Parent... :)


sniknik   (2006-10-05 12:42:00) [50]

> А кто скажет вариант ВООБЩЕ без любых операторов, кроме присвоения?
ты? ;о))


oxffff   (2006-10-05 12:41:00) [51]


> clickmaker ©   (05.10.06 12:34) [26]
> Однако здесь везде есть что-то кроме присваивания.
> А кто скажет вариант ВООБЩЕ без любых операторов, кроме
> присвоения?


Препод.


clickmaker   (2006-10-05 12:34:00) [52]

Однако здесь везде есть что-то кроме присваивания.
А кто скажет вариант ВООБЩЕ без любых операторов, кроме присвоения?


sniknik   (2006-10-05 12:29:00) [53]

oxffff ©   (05.10.06 12:18) [22]
все... препод поставит оценку незаслуженно...  ;о(

еще вариант
with TButton(Sender).Font do
 Style:= TFontStyles(Byte(Style) xor 2);


oxffff   (2006-10-05 12:22:00) [54]

Я тоже подзабыл.
Возможно придется сделать через вентиль вызова(call gate) и бит гранулярности.
А также повысив свой IRQL с PASSIVE до DISPATCH.
Не забыв подкорректировать TSS.

:)


Наиль   (2006-10-05 12:18:00) [55]


> блин, всю малину испортил... надо было хоть дать подумать
> человеку

Возможно ещё придётся подумать.
Писал по памяти. Наверняка, не без ошибки.


oxffff   (2006-10-05 12:18:00) [56]

font.Style:=[fsItalic]-font.Style;


clickmaker   (2006-10-05 12:15:00) [57]


> [20] Наиль ©   (05.10.06 12:12)

блин, всю малину испортил... надо было хоть дать подумать человеку


Наиль   (2006-10-05 12:12:00) [58]

Очень часто использую:
procedure TForm1.Button1Click(Sender: TObject);
begin
 Button1.font.style:=Button1.font.style+[fsItalic]-Button1.font.style*[fsItalic];
end;


Плохиш   (2006-10-05 12:09:00) [59]


> sniknik ©   (05.10.06 11:51) [13]

А мне твой вариант нравится :-)


clickmaker   (2006-10-05 12:09:00) [60]

Ну да, все зависит от ограничений... Потому как способов несколько


Страницы:   1 2 3 4

Наверх

Титульная страница Поиск, карта сайта Написать письмо