Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

Страницы: < 1 2 3 4 >
АлексЧерных © (2006-10-05 11:20:00)
Люди, помогите! На лабах препод задал задачу. Сделать не возможно. Помогите. Вот текст условия: При нажатии на кнопку текст надписи на ней становится наклонным, при повторном нажатии - снова обычным. Можно пользоваться только присвоениемм. Использовать условный опрератор НЕЛЬЗЯ. Помогите.

han_malign (2006-10-05 16:37:00) [21]
Если лабораторная в рамках темы "Конечные автоматы", то вариант [51] - самый правильный... Одна из оптимальных реализаций машины состояний...

han_malign (2006-10-05 16:25:00) [22]

> увы...

- ну почему же увы, я до этого не додумался... У меня тривиальный "Exchange"...

Clickmaker (2006-10-05 15:53:00) [23]

> - у тебя такой же ход мыслей?

увы...

han_malign (2006-10-05 15:34:00) [24]

> Percent (05.10.06 15:14) [51]

> clickmaker ©
- у тебя такой же ход мыслей? У меня решение попроще, без "неявных ветвлений", но с лишним присваиванием...

Плохиш (2006-10-05 15:22:00) [25]

> Percent (05.10.06 15:14) [51]

А что жирность, подчёркивание и перечёркивание во внимание не принимаются?

sniknik (2006-10-05 15:17:00) [26]
[32] жутко невнятная запись, если уж делать то понятно, для добавлений еще параметра, имхо, лучше мой вариант "модернезировать"

procedure TForm1.Button1Click(Sender: TObject);
const
Bold = 1;
Italic = 2;
Underline = 4;
StrikeOut = 8;
begin
with TButton(Sender).Font do
Style:= TFontStyles(Byte(Style) xor (Bold+Italic));
end;

все в туже одну асемблерную команду скомпилится...

clickmaker © (05.10.06 14:38) [50]
ну раз не удалось получить выгоды, считай из чисто альтруистких соображений помогли. ;о)) а впредь надо быть сдержанней.

Percent (2006-10-05 15:14:00) [27]
procedure TForm1.OnClick1(Sender: TObject);
begin
Button1.Font.Style := [fsItalic];
Button1.OnClick := OnClick2;
end;

procedure TForm1.OnClick2(Sender: TObject);
begin
Button1.Font.Style := [];
Button1.OnClick := OnClick1;
end;

clickmaker (2006-10-05 14:38:00) [28]
Эх, самое обидное - чел лабу сдаст, а пива никому из присутствующих здесь не поставит...

han_malign (2006-10-05 13:50:00) [29]

> все равно [22] и [32] не переплюнуть

- ну допустим [32] мне переплевывать не надо, я его еще в [15] обозначил... А вот два присваиваивания - переплюнет все...

clickmaker (2006-10-05 13:40:00) [30]
может лучше от препода подождем ответа, а?
все равно [22] и [32] не переплюнуть

han_malign (2006-10-05 13:30:00) [31]

> > без промежуточного запоминания значения
> это еще зачем?

- ну тогда мне остается только процитировать - "Ого. Прошу вас код в студию."...

clickmaker (2006-10-05 13:24:00) [32]

> без промежуточного запоминания значения

это еще зачем?

clickmaker (2006-10-05 13:23:00) [33]

> Ого. Прошу вас код в студию

ну дай померяться )) может кто-то меньше предложит

han_malign (2006-10-05 13:22:00) [34]

> двумя

- не - двумя никак - без промежуточного запоминания значения никому еще обойтись не удавалось...

oxffff (2006-10-05 13:21:00) [35]
Ого. Прошу вас код в студию.

clickmaker (2006-10-05 13:17:00) [36]

> конкретно в OnClick - тремя

двумя

oxffff (2006-10-05 13:14:00) [37]
Уважаемые. Снизойдите до меня.

han_malign (2006-10-05 13:13:00) [38]

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

- конкретно в OnClick - тремя

oxffff (2006-10-05 13:12:00) [39]
Ого. Прошу вас код в студию.

han_malign (2006-10-05 13:11:00) [40]
помимо гусаров, этим еще сверхзвуковые самолеты меряются... :)

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

Наверх

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