[Kores]

задача.есть таблица

Код:

1	spol//датасурс для этой таблицы

...в ней столбцы:
назв/ тип/ значения
ID_pol - счетчик| 1, 2.
pol - текст | мужской, женский
spol - текст | муж, жен.
прикрепляю к этой таблице dblookupcombobox. делаю свойства такие, как надо...тоесть

Код:

1 2 3 4 5 6 7 8 9 10 11 12

object Pol: TDBLookupComboBox     Left = 288     Top = 48     Width = 145     Height = 21     DataField = 'Pol'     DataSource = DataMod.Scard //сюда должны добавляться значения...     KeyField = 'ID_pol'     ListField = 'Pol'     ListSource = DataMod.spol // отсюда берется список значений.     TabOrder = 6   end

а в работе он не активен и не показывает список значений



и попутно сразу вопрос...вот кусок кода

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

function Tdatamod.TestNoCard(var No: String): Boolean; var   CountZero: Integer; begin   CountZero := 8 - Length(No); // к-во незначащих нулей в номере карты. В реальной БД                             // необходимо использовать не константу, а размер поля   No := Copy(ZeroStr, 1, CountZero) + No; //добавляем незначащие нули до 8 знаков   with qSearch do //делаем запрос с номером   begin     Parameters.Items[0].Value := No;     Open;     Result := RecordCount = 0; //если нет записей с тким номером, значит тест пройден     if not Result then //если результат негативный сообщаем об этом      showmessage('такая карта уже существует');     Close;   //закрываем запрос   end; end;

ругается на showmessage - неизвестный идентификатор....
везде это катит...а тут...