안녕하세요. 최용일입니다.



맨 위에것은 집합입니다. 여러개의 원소를 가질수 있고, 교집합/차집합 등의 연산을



할 수 있죠... 원소를 표현할때는 '[' ']'기호를 이용합니다.



type

TMYEdges = set of ( deLeft, deTop, deRight, deBottom);

var

Edges: TMyEdges;

begin

Edges := [deLeft, deTop];

Edgeg := [deLeft, deTop] - [deLeft, deRight]; // = [deLeft]

end;



다음 나오는 것들은 열거형으로 이들중에서 단 하나의 값만 가질 수 있죠...



type

TMyEdgeStyle = ( desNone, desFlat, desRaised, desRaisedHeavy, desSunken,

desSunkenHeavy, desBump, desEtched );

var

MyEdgeStyle: TMyEdgeStyle;

begin

MyEdgeStyle := desNone;

MyEdgeStyle := desEtched;

end;



맨 밑에것은 객체형이네요... 이건 쓰기전에 생성해야하고 쓴뒤에 소멸시켜야 합니다..



type

TMyLabel = class(TCustomLabel)

var

MyLabel: TMyLabel;

begin

MyLabel := TMyLabel.Create(Self);

MyLabel.Caption := '라벨';

......

MyLabel.Free;

end;



^^ 항상 즐코하세요...



콤포넌트 왕초보 wrote:

> 이런 질문을 올려도 좋을지 모르겠네요.....간단한 설명을 부탁드립니다.

> 컴포넌트 한번 만들어 볼려구 다른 사람이 만들걸 참고로 공부를 하고 있는데....

> type

> TMYEdges = set of ( deLeft, deTop, deRight, deBottom);

> TMyEdgeStyle = ( desNone, desFlat, desRaised, desRaisedHeavy, desSunken,

> desSunkenHeavy, desBump, desEtched );

> TMyTextStyle = ( dtsFlat, dtsRaised, dtsRaiseHeavy, dtsSunken,

> dtsSunkenHeavy, dtsShadow);

> TMyShadowDirection = ( dsdTopLeft, dsdTopRight, dsdBottomLeft, dsdBottomRight);

>

> TMyLabel = class(TCustomLabel)

>

> 이런식으로 나오던데.....

> 맨 위에 set of 로 선언한 것과 밑에 그냥 괄호로만 묶은것의 차이는 무었입니까?...

> 넘 간단한 질문인가....

>