Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[564] [답변] VCL/클래스에 관해서.. 다시한번...
박종일 [ ] 2113 읽음    1998-01-07 16:39
질문하신 Class 의 내용이 하나의 클래스에서 다른 클래스를 선언하고 그 클래스의

값을 사용하는 것이라면.. 다음과 같은 예제가 맞는지 모르겠지만...

한번 확인하여 주시고...

이상이 있는점은 다시 알려주십시요..

그럼...


                                ~도치였습니다.


type
  TClass_Group_A = class
  private
    Member_A : Integer;
    Member_B : Integer;
  public
    Function  Get_Member_A : Integer;
    Function  Get_Member_B : Integer;
    Procedure Set_Member_A(Temp : Integer);
    Procedure Set_Member_B(Value : Integer);
end;

type
  TClass_Group_B = class
  private
    TmpGroup : TClass_Group_A;
    Member_C : Integer;
    Member_D : Integer;
  public
    Function  Get_Member_C : Integer;
    Function  Get_Member_D : Integer;
    Procedure Set_Member_C(Value : Integer);
    Procedure Set_Member_D(Value : Integer);
end;

var
  Form1 : TForm1;
//  Grp_A : TClass_Group_A;
  Grp_B : TClass_Group_B;

implementation

{$R *.DFM}

// ---------------------------------------------------------------//
Procedure TClass_Group_A.Set_Member_A(Temp : Integer);
begin
  Member_A := Temp;
end;

Procedure TClass_Group_A.Set_Member_B(Value : Integer);
begin
  Member_B := Value;
end;

Function TClass_Group_A.Get_Member_A : Integer;
begin
  Get_Member_A := Member_A;
end;

Function TClass_Group_A.Get_Member_B : Integer;
begin
  Get_Member_B := Member_B;
end;

// ---------------------------------------------------------------//
Procedure TClass_Group_B.Set_Member_C(Value : Integer);
begin
  Member_C := Value;
end;

Procedure TClass_Group_B.Set_Member_D(Value : Integer);
begin
  Member_D := Value;
end;

Function TClass_Group_B.Get_Member_C : Integer;
begin
  Get_Member_C := Member_C;
end;

Function TClass_Group_B.Get_Member_D : Integer;
begin
  Get_Member_D := Member_D;
end;
// ---------------------------------------------------------------//

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Edit1.Text := IntToStr(Grp_B.TmpGroup.Get_Member_A);
  Edit2.Text := IntToStr(Grp_B.TmpGroup.Get_Member_B);
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  Grp_B.TmpGroup.Set_Member_A(StrToInt(Edit1.Text));
  Grp_B.TmpGroup.Set_Member_B(StrToInt(Edit1.Text));
end;

procedure TForm1.FormShow(Sender: TObject);
begin
//  Grp_A := TClass_Group_A.Create;
  Grp_B := TClass_Group_B.Create;
  Grp_B.TmpGroup := TClass_Group_A.Create;
end;

end.


+ -

관련 글 리스트
564 [답변] VCL/클래스에 관해서.. 다시한번... 박종일 2113 1998/01/07
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.