클래스를 여러개로 쪼개서 관리할려고 하는데 잘 안되네요
과거에 했던것 같은데 다시 할려니 영 안됩니다.
밑에 예제입니다.
unit MainUnit;
...
TMainclass = TClass
Private
Procedure Sub1_P1;
Procedure Sub1_P2;
Procedure Sub2_P1;
Procedure Sub2_P2;
public
end;
implementation
uses Sub1, Sub2;
end.
unit Sub1;
interface
uses MainUnit;
implementation
Procedure TMainclass.Sub1_P1;
begin
end;
...
end.
unit Sub2;
interface
uses MainUnit;
implementation
Procedure TMainclass.Sub2_P1;
begin
end;
...
end.
...
TMainclass = Class
Private
Procedure Sub1_P1;
Procedure Sub1_P2;
Procedure Sub2_P1;
Procedure Sub2_P2;
public
end;
implementation
{$Define MainUnit}
{$I Sub1.pas}
{$I Sub2.pas}
end.
{IF not Defined(MainUnit) }
unit Sub1;
interface
implementation
end.
{ELSE}
Procedure TMainclass.Sub1_P1;
begin
end;
...
{IFEND}
위에 있는부문 별로 맘에 안드네요 쩝
더 좋은 방법이 있을까요