Как передать строковые индексы для OleVariant

Question

Я преобразования следующий пример кода в Delphi:

http://msdn.microsoft.com/en-us/library/bb176406%28v=office.12%29.aspx

Мой код что-то вроде:

 
var 
    vTable, vRow: OleVariant; 
begin 
.... 

    while vTable.EndOfTable = False do 
    begin 
    vRow := vTable.GetNextRow; 
    sEmail := vRow['Email1Address']; 
    ShowMessage(sEmail); 
    end; 
end; 

Проблема заключается в том, что мне нужно передать индекс строки, 'Email1Address', но Delphi дает ошибку: Несовместимые типы: Целое и строка.

Должен ли я использовать другой вариант?

ТИА

Answer 1

Я принял взглянуть на блок Outlook, генерируемой из файла TLB и это выглядит следующим образом:

_Row = interface(IDispatch) 
    ['{000630D3-0000-0000-C000-000000000046}'] 
    //snip 
    function Item(Index: OleVariant): OleVariant; safecall; 
    //snip 
    end; 

Интерфейс Row имеет метод Предмет, который принимает OleVariant. Так что используйте это:

sEmail := vRow.Item('Email1Address'); 

Также обратите внимание на MSDN help.