Lazarus - Circular unit reference between Unit2 and Unit1

Z Podręcznik Administratora by OPZ SGU
Wersja z dnia 02:26, 7 sty 2012 autorstwa Adminka23 (dyskusja | edycje)
(różn.) ← poprzednia wersja | przejdź do aktualnej wersji (różn.) | następna wersja → (różn.)
Przejdź do nawigacji Przejdź do wyszukiwania

Dane mogą dotyczyć innych nazw unitów. Oznacza to że chcemy zaimplementować unit "macierzysty" który ma w sobie podrzędny (kiepsko to napisane zostało więc napiszę po ludzku).

Unit1 (nasz głowny)

uses unit2 < -- dodajemmy sobie unit2, do głównego


form2.show <- sterujemy sobie unitem


//wszystko działa!


Unit2 (nasz poboczny)

uses unit1 <-- niby, dodajemy sobie główny

form1.show <-- chcemy wyświeetlić, schować, cokolwiek


//Dostaniemy błąd... że unit1, używa unit2 :-)


W związku z powyższym w unit2 uses unit1 <-- przenosimy pod implementation


implementation uses unit1 ;

Tak wygląda to w moim prawdziwym projekcie: W unit4, mam :

implementation
uses unit2,unit1 ;