reserviertes Wort umgehen

[shmia]

In der Unit AxCtrls gibt es:

Delphi-Quellcode:

function GetDispatchPropValue(Disp: IDispatch; DispID: Integer): OleVariant;
procedure SetDispatchPropValue(Disp: IDispatch; DispID: Integer; const Value: OleVariant);

Wenn du die DispID kennst (lässt sich ja leicht nachschauen):

Delphi-Quellcode:

var
   objekt : OleVariant;
   if GetDispatchPropValue(object, 41) = 'test ' then ...

Ich dachte, dass ich mal ähnliche Funktionen wie oben im der VCL gefunden habe, bei denen anstelle der
DispID das Property als String übergeben wird; finde die Stelle aber nicht mehr :-/