Tips & tricks (Трюки кодинга)

[odd]

Для начинающих даю пример работы с дополнительными шрифтами.
В примере:
- Загрузка дополнительного шрифта
- Различные процедуры вывода текста на экран
- 17 различных шрифтов

[odd]

Вот с таким вопросом столкнулся: А можно ли сделать в формах выпадающий список типа ComboBox?
Оказывается, можно:

Program ComboBox;
Var combo, male, female, alien: integer;
Begin
 combo:=FormAddChoice('Ваш пол:', 4);
 male:=ChoiceAppendString(combo, 'Мужской');
 female:=ChoiceAppendString(combo, 'Женский');
 alien:=ChoiceAppendString(combo, 'Не определился'); 
 ShowForm;
 Delay(50000);
End. 


Об этом приколе не написано даже в английском хелпе

[Cliffe Snake]

combo:=FormAddChoice('Ваш пол:', 4 ); 


Причём 4 можно заменить на константу:
CH_EXCLUSIVE - можно выбрать токо один элемент
CH_MULTIPLE - выбирай скоко влезет :D

[bms2008]

Сообщение от Cliffe Snake

combo:=FormAddChoice('Ваш пол:', 4 ); 


Причём 4 можно заменить на константу:
CH_EXCLUSIVE - можно выбрать токо один элемент
CH_MULTIPLE - выбирай скоко влезет :D

Нельзя заменить - получится не combobox, а список radiobutton (CH_EXCLUSIVE) или список CheckBox (CH_MULTIPLE)

Кстати, не знаю как в телефонах, а на КПК в Esmertec Jbed этот комбо не открывается ,
хотя в Midlet Manager работает

======
ODD, рулит

[abcdef]

условные выражения иногда вредно объединять оператором AND, потому что при невыполнении первых условий последующие приведут к ошибке, например: if (i<arraylength) and (m[i]=0) then ... здесь если индекс вне массива второе условие приведет к ошибке. В компиляторах есть опция прекращения сравнения если становится известно что условие ложно. Но MIDletPascal расчитывает полностью, поэтому перепишем так: if (i<arraylength) then if (m[i]=0) then ...

[Phantom]

abcdef, о_О а я сколько в инете читал, так везде пишут, что во всех языках программирования сделано так, что проверяются условия в порядке записи и если одно из них ложно, то следующие не проверяются. Я это понял ещё до того, как где-то прочитал, в php часто так делал =)

[SBJoker]

Не во всех языках так сделано... а в некоторых типа с++ и с# можно указывать как проверять всё или сокращенно.

Phantom_wc
есть полная и краткая проверка логических условий :
полная - проверяются и выполняются все функции заданные в условиях
краткая - проверяются условия по-порядку из записи пока результат не будет очевиден
в некоторых компиляторах можно даже явно указывать какой метод использовать

[HolyDel]

если перегрузить == в плюсах - то краткая форма работать не будет.