obiekty a interfejsy

Johny_Morfina
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 448
0

witam, gdzies wyczytalem ze nie nalezy mieszac modelu obiektowego z interfejsowym.
ja sie jednak uparlem, i teraz mam z tym kolejny problem.

mam taka procedure

Kopiuj
type
  IElement = interface
    function wartosc: integer;
  end;

var
  ListaElementow: TList;

procedure MojaProcedura(Element: IElement);
begin
  if Element.wartosc > 5 then
    ListaElementow.Add(Element);
end;

No ale przy probie kompilacji dowiaduje sie ze 'Pointer' i 'IElement' sa niekompatybilne...
<ort>z tad</ort> moje pytanie:

Jak majac interfejs zdobyc wskaznik na obiekt 'trzymany' przez niego?

  • Rejestracja: dni
  • Ostatnio: dni
0

Cała konstrukcja wydaje mi się dość dziwna, więc nie wiem, czy to zadziała - w każdym razie to się kompiluje:

Kopiuj
    ListaElementow.Add(Pointer(Element));

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.