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 와 같이 사용될 수 있으면 합니다.
|