Delphi & Builder

← →
firster (2002-02-27 08:19) [0]

const Alignments: array[Boolean, TAlignment] of DWORD = ((ES_LEFT, ES_RIGHT, ES_CENTER),(ES_RIGHT, ES_LEFT, ES_CENTER)); ScrollBar: array[TScrollStyle] of DWORD = (0, WS_HSCROLL, WS_VSCROLL, WS_HSCROLL or WS_VSCROLL); WordWraps: array[Boolean] of DWORD = (0, ES_AUTOHSCROLL); begin inherited CreateParams(Params); with Params do begin Style := Style and not WordWraps[FWordWrap] or ES_MULTILINE or Alignments[UseRightToLeftAlignment, FAlignment] or ScrollBar[FScrollBars]; end; end;

Вопрос: КАК ПЕРЕДЕЛАТЬ МАССИВ Alignment в C++ Builder?

← →
firster (2002-02-27 11:23) [1]

← →
[NIKEL] (2002-02-27 11:51) [2]

имхо в билдере так не сделаешь
это у тебя 2-х мерный массив с разными типами данных в каждом измирении? или как?

← →
drpass (2002-02-27 12:05) [3]

Это у него обычный двухмерный массив, в качестве индексов которого использованы два целых типа.
Вот только в Сях все массивы индексируются только от нуля и до чего-там-указано. Перечисляемые типы и в Сях, и в Паскале тоже нумеруются от нуля и до сколько-их-перечислено
И все бы работало даже в виде int Aligments[2][3];

...ES_MULTILINE | Aligments[UseRightToLeftAlignment, FAlignment];

...если бы в Сях был аналог типа boolean (напомню, boolean имеет значения 0 и 1, и массив [0..1] будет иметь 2 строки; а вот bool и иже с ним имеют значения 0 и FFFF... в общем, индекс FFFF вряд ли попадет куда надо). Выход - ввести свой перечисляемый тип и юзать его как логический

← →
Ser_Kham1 (2002-02-27 13:11) [4]

А по-моему ты правильно сказал
int Aligments[2][3];
и всё.
Я просто ради прикола набил малютку программку

const int a[2]={4,5};
bool ik=true;

ShowMessage(a[ik]);
bool ik1=false;
ShowMessage(a[ik1]);
Результат был правильный: сначала 5, потом 4

← →
firster (2002-02-28 05:24) [5]

Спасибо!

А может кто-нибудь подсказать на счёт "namespace" в C++ Builder?
Почему при создании компонент автоматически устанавливается namespace в подобное Mynamespace, а при его изменении, например с Mynamespace на MyNameSpace отказывается работать (устанавливаться)?

← →
firster (2002-02-28 09:22) [6]

← →
Ser_Kham1 (2002-03-01 15:10) [7]

"а при его изменении, например с Mynamespace на MyNameSpace отказывается работать (устанавливаться)?" -при чьём изменении?
Вобще об чём речь?

← →
MBo (2002-03-01 15:14) [8]

может о том, что в Сях есть чувствительность к регистру букв идентификаторов?

← →
firster (2002-03-04 08:36) [9]

Нет не про чувствительность к регистру, а про то, где ещё упоминается этот NameSpace кроме самого Package"а?

← →
firster (2002-03-06 05:35) [10]

← →
Builder (2002-03-06 08:40) [11]

Ну если ты это сделал руками, то почему оно должно устанавливаться - не все автоматизированно - нужно и код писать :)
И это хорошо!

Delphi & Builder Найти похожие ветки