질문하신 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.
|