есть ф-ция:
| Код |
Procedure PrepareCombobox(var ComboBox : TDBComboBoxEh; SetFirst: boolean); overload;
begin
if (ComboBox.Items.Count > 0) and SetFirst
then ComboBox.ItemIndex := 0;
ComboBox.DropDownBox.Rows := Max(ComboBox.DropDownBox.Rows,Min(8, ComboBox.Items.Count));
end;
|
и аналогичная
| Код |
Procedure PrepareCombobox(var ComboBox : TDBLookupComboBoxEh; SetFirst: boolean); overload;
begin
if (ComboBox.Items.Count > 0) and SetFirst
then ComboBox.ItemIndex := 0;
ComboBox.DropDownBox.Rows := Max(ComboBox.DropDownBox.Rows,Min(8, ComboBox.Items.Count));
end;
|
вызваю её вот так вот:
| Код |
For i := 0 To Self.ComponentCount-1 Do
Begin
If (Self.Components[i] is TDBComboBoxEh)
Then
begin
PrepareCombobox( (Self.Components[i]) as TDBComboBoxEh ,False);
end;
|
и получаю ошибку:
There is no overloaded version of 'PrepareCombobox' that can be called with these arguments.
 не понимаю в чём там дело .  Кто-нибудь знает почему так?
и в то же время, если создать переменную типа TDBComboBoxEh. Присвоить ей
Self.Components[i]) as TDBComboBoxEh и передать в виде параметра уже переменную, то всё происходит на ура. Но такой вариант меня не устраивает, потому что планируется по ходу работы добавлять перезагруженные варианты ф-ции для других типов контролов.
п.с. Дельфи 6. |
Он там не нужен. Только мешать будет.