Не могу заполнить listBox1 значениями из поля Name таблицы CustTable
На строчку кода
listBox1.AddItem(CustTableBuffer.field('Name'),nil);
ругается ""Член группы не найден""
Подскажите, пожалуйста, в чем проблема.
PHP код:
uses
SysUtils, ComObj, ActiveX;
//..................
procedure TForm1.Button1Click(Sender: TObject);
var axapta,
axaptaQuery,
AxaptaDataSource,
AxaptaQueryRun,
CustTableBuffer: Variant;
begin
CoInitialize(nil);
axapta := CreateOleObject('AxaptaCOMConnector.Axapta2');
axapta.Logon2( 'COM','1111','','','','','');
axaptaQuery := axapta.CreateObject('Query');
axaptaDataSource := axaptaQuery.call('addDataSource',77);
axaptaQueryRun := axapta.CreateObject('QueryRun',AxaptaQuery);
while axaptaQueryRun.call('Next') do begin
CustTableBuffer := AxaptaQueryRun.call('GetNo',1);
listBox1.AddItem(CustTableBuffer.field('Name'),nil); // не работает
{ listBox1.AddItem(CustTableBuffer.caption,nil); // работает без проблем }
end;
CoUninitialize();
end;