[Allizar]

Штудирую пособие о совместной работе указанных приложений. Создал учебный пример: запускается рабочая база и считывается значения справочника. Код компилируется, но при запуске приложения и выполнении следующей процедуры выдается ошибка о несовпадении типов. Причем у автора книги приложение работает, но, когда я пытаюсь скомпилировать им же созданные файлы, компиляция не проходит из-за синтаксической ошибки. Может, его приложение написано в более старой версии? Вообщем, не знаю.

Код

Код:

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

procedure TForm1.Button2Click(Sender: TObject); var   OleSklad: OleVariant; begin   OleSklad:=Unassigned;   ListBox1.Items.Clear;   if not VarIsEmpty(Ole1C) then begin     OleSklad:=Ole1C.CreateObject('Справочник.'+Edit3.Text);     if not VarIsEmpty(OleSklad) then begin       if OleSklad.ВыбратьЭлементы()>0 then begin         while OleSklad.ПолучитьЭлемент()>0 do begin             ListBox1.Items.Add(Trim(OleSklad.Код)+'  '+Trim(OleSklad.Наименование));             Application.ProcessMessages;         end;       end;     end;   end;   OleSklad:=Unassigned; end;