Q&A

  • 클래스를
클래스를 여러개로 쪼개서 관리할려고 하는데 잘 안되네요
과거에 했던것 같은데 다시 할려니 영 안됩니다.
밑에 예제입니다.

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.

1  COMMENTS
  • Profile
    이중철 2004.02.25 03:10
    unit MainUnit;
    ...
    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}

    위에 있는부문 별로 맘에 안드네요 쩝
    더 좋은 방법이 있을까요