Comment passer les index de chaîne pour

Question

OleVariant Je suis convertissaient le code exemple suivant pour Delphi:

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

Mon code est quelque chose comme:

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

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

Le problème est que je dois passez un index de chaîne, 'Email1Address', mais Delphi donne l'erreur: Types incompatibles: Entier et chaîne.

Devrais-je utiliser un autre type de variante?

TIA

Answer 1

J'ai pris un coup d'œil à l'unité d'Outlook généré à partir d'un fichier TLB et il ressemble à ceci:

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

L'interface de ligne a une méthode Item, qui prend un OleVariant. Il faut donc utiliser ceci:

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

Jetez aussi un coup d'oeil à la MSDN help.