freepascal.ru

Из Delphi 7 в проекте используется в одном модуле интерфейс IStrings
переделываю под lazaraus.

Код: Выделить всё

  IObjectCollection = interface(IStrings)
    ['{D7A6697B-CB41-4FA2-8B59-EB0E9E7B5534}']
    procedure Load(Medium: OleVariant; Tymed: TTymed); safecall;
    procedure Save(Medium: OleVariant; Tymed: TTymed); safecall;
  end;

  IObjectCollectionDisp = dispinterface
    ['{D7A6697B-CB41-4FA2-8B59-EB0E9E7B5534}']
    procedure Load(Medium: OleVariant; Tymed: TTymed); dispid 301;
    procedure Save(Medium: OleVariant; Tymed: TTymed); dispid 302;
    property ControlDefault[Index: Integer]: OleVariant dispid 0; default;
    function Count: Integer; dispid 1;
    property Item[Index: Integer]: OleVariant dispid 2;
    procedure Remove(Index: Integer); dispid 3;
    procedure Clear; dispid 4;
    function Add(Item: OleVariant): Integer; dispid 5;
    function _NewEnum: IUnknown; dispid -4;
  end;

нашел только одно чтото похожее. Подскажите чем заменить IStrings.

Код: Выделить всё

{ IStringsAdapter interface }

  { Maintains link between TStrings and IStrings implementations }
  IStringsAdapter = interface ['{739C2F34-52EC-11D0-9EA6-0020AF3D82DA}']
    procedure ReferenceStrings(S: TStrings);
    procedure ReleaseStrings;
  end;