[Allizar]

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

Код

Код:

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;