Страница 1 из 1

Почему не работает динамический ListBox?

Добавлено: 24 окт 2003, 02:49
Juve
Есть поле Field1:Integer , есть обработчик на кнопку... в нем SetEnumList(Sheet1,Field1,MyList) где MyList[0]=:'Текст1'
MyList[1]:='Текст2' и т.д...все компилится без ошибок но список в ListBox`e Field1 не появляется, что я делаю не так?

Re: Почему не работает динамический ListBox?

Добавлено: 24 окт 2003, 14:41
Maverick
ну во первых.
поле должно быть типа word
во вторых этому полю нужно сопоставить массив

Re: Почему не работает динамический ListBox?

Добавлено: 27 окт 2003, 01:32
Juve
Меня наверно плющит,но сделано вот так:

Var
a: array [0..2] of String;
Field1: Word;
Screen Sc1
Fields
Field1: [List 'ass'];
.....
.....
.....
End; // Sc1
HandleEvent
CmTry:
{
a[0]:='dfg0';
a[1]:='dfg1';
a[2]:='dfg2';
SetEnumList(Sс1,Field1,а);
}
End; // HandleEvent
End; // Iface
И почему же оно не работает,нет ни ошибок,ни результатов...при срабатывании CmTry ничего не меняется...

Re: Почему не работает динамический ListBox?

Добавлено: 04 ноя 2003, 09:07
Goblin
Массив объяви [1..3] - заработает ...
не любит почему-то word число 0 ...

Re: Почему не работает динамический ListBox?

Добавлено: 25 фев 2005, 11:07
GTHack
видимо у Juve заработало ....
у меня не хочет, вот текст всего фейса

interface testlist;
create view testlist as select * from systdate;
Var
a: array [1..3] of String;
Field1: Word;
Screen Sc1
Fields
Field1: [List 'ass'];
<<
.@@@@@@@@@@@@@
>>
End;

HandleEvent
CmInit:
{
a[1]:='dfg0';
a[2]:='dfg1';
a[3]:='dfg2';
SetEnumList(Sc1,Field1,a);
}
End; // HandleEvent
End.

Re: Почему не работает динамический ListBox?

Добавлено: 25 фев 2005, 11:19
GTHack
описание field1 в create view
и всё путем

Re: Почему не работает динамический ListBox?

Добавлено: 25 фев 2005, 12:09
GTHack
еще прикольчик
если перед объявлением field1 в create view
поставить какой нибудь field2:comp
выпадающее меню работать не будет,
а вот если поставить field2:comp после field1 - работает
(Галактика 5.84)