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
[16153] Re:초보적인 질문 좀 할께요.
브리오 [] 753 읽음    2021-02-05 15:26
JAVA의 exetends 가 뭔지 모르지만,

type
  TKindAll = packed reocrd
      Kind: TKind;

      c:integer;
     d: string;
  end;

로 하면 되지 않을까요? 

class의 상속을 사용하시면 보다 간단합니다.

type
     TKind = class
     public
           a: string;  
           b: integer;
     end;

     TKindAll = class(TKind)
            c: integer;
            d: string;
     end;

var
     AKindAll: TKindAll;

begin
     AKindAll := TKindAll.Create;

     with AKindAll do begin
             a:= 'this is a';
             b:= ord(b);
             c:= ord(c);
             d:= 'this is d';
     end
end;
    


Yuha 님이 쓰신 글 :
: 구글링 해도 비슷한 답이 나오지 않네요.
:
: type
:  TKind = packed record
:   a: string;
:   b: integer;
:  end;
:
: 위 처럼 record type 선언을 하고  java 의 extends 처럼 하나의 record 로 만들고자 합니다.
:
: type
:  TKindAll = packed reocrd
:    TKind;
:
:    c:integer;
:    d: string;
:  end;
:
: 이렇게 추가하는 방법이 있을까요?
:
: 사용시
:  KindAll.TKind.~ 방식이 아닌 KindAll.a 와 같이 사용될 수 있으면 합니다.

+ -

관련 글 리스트
16152 초보적인 질문 좀 할께요. Yuha 851 2021/02/04
16154     Re: 델파이 파스칼 언어로는 불가능하고. object 키워드 꼼수를 이용해야 함. 빌더(TWx) 1057 2021/02/05
16153     Re:초보적인 질문 좀 할께요. 브리오 753 2021/02/05
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.