type
TDate = class
private
fDate: TDateTime;
procedure SetDay( const Value: Integer ); <-
procedure SetMonth( const Value: Integer ); <- 여기에 쓰인 const가 뭔가요?
procedure SetYear( const Value: Integer ); <-
function GetDay: Integer;
function GetMonth: Integer;
function GetYear: Integer;
public
constructor Create; overload;
constructor Create( y, m, d: Integer ); overload;
procedure SetValue( y, m, d: Integer ); overload;
procedure SetValue( NewDate: TDateTime ); overload;
function LeapYear: Boolean;
procedure Increase( NumberOfDays: Integer = 1 );
procedure Decrease( NumberOfDays: Integer = 1 );
function GetText: string;
property Year: Integer read GetYear write SetYear; <--
property Month: Integer read GetMonth write SetMonth; <-- 여기서 쓰인 property가 뭔가요?
property Day: Integer read GetDay write SetDay; <--
end;
즉, 변하지 않는 값을 가지지요.
아래 TDate 형 class 에서는 멤버 함수(클래쓰내부함수)에 사용되는
함수의 인자로 쓰여졌군여. 결국 값이 변하지 않는 인자를 가지고
참조만 한다는 이야기 겠지요.
그리고 아래 property 는 일종의 변수와 같다고 보시면 됩니다.
TDate 형 클래쓰는 만들고 그 클래쓰로 형선언된 변수에서
저 property 를 사용하 실 수 있는 것입니다.
제가 드린 답변이 허접하지만, 그냥 이해하는 정도로 넘어가시구요,
또한 예제와 더불어 스스로 작성을 하실때 좀더
많은 많은 이해를 하시게 될겁니다.
그럼~ 항상 즐거운 프로그래밍 하시길~~