Штудирую пособие о совместной работе указанных приложений. Создал учебный пример: запускается рабочая база и считывается значения справочника. Код компилируется, но при выполнении следующей процедуры выдается ошибка о несовпадении типов:
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;
ПоказатьПо теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Работает в таком варианте:
procedure TForm1.Button2Click(Sender: TObject);
var
OleSklad: OleVariant;
begin
OleSklad:=Unassigned;
ListBox1.Items.Clear;
if not VarIsEmpty(Ole1C) then begin
OleSklad:=Ole1C.CreateObject(WideString('Справочник.'+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; Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот