[펌] 델파이 객체지향프로그래밍을 위한 20가지 규칙

public
  constructor Create (Text: string); reintroduce; overload;
constructor TFormDialog.Create(Text: string);
begin
  inherited Create (Application);
  Edit1.Text := Text;
end;


예제 1

private
  function GetText: String;
  procedure SetText(const Value: String);
public
  property Text: String
    read GetText write SetText;
function TFormDialog.GetText: String;
begin
  Result := Edit1.Text;
end;
procedure TFormDialog.SetText(const Value: String);
begin
  Edit1.Text := Value;
end;

예제 2: 컴포넌트의 프로퍼티가 공개되도록 폼에 프로퍼티를 추가. 

type
  TFormDialog = class(TForm)
private
  ListItems: TListBox;
  function GetItems(Index: Integer): string;
  procedure SetItems(Index: Integer; const Value: string);
public
  property Items[Index: Integer]: string read GetItems write SetItems; default;
end;
function TFormDialog.GetItems(Index: Integer): string;
begin
  if Index >= ListItems.Items.Count then
    raise Exception.Create('TFormDialog: Out of Range');
  Result := ListItems.Items [Index];
end;
procedure TFormDialog.SetItems(Index: Integer; const Value: string);
begin
  if Index >= ListItems.Items.Count then
    raise Exception.Create('TFormDialog: Out of Range');
  ListItems.Items [Index] := Value;
end;

예제 3: 폼에 기본 프로퍼티 배열의 정의

procedure TComponent.SetReference(Enable: Boolean);
var
  Field: ^TComponent;
begin
  if FOwner <> nil then 
  begin
    Field := FOwner.FieldAddress(FName);
    if Field <> nil then
      if Enable then
        Field^ := Self
      else
      Field^ := nil;
  end;
end;

예제 4: owner 폼에서 컴포넌트가 그 참조를 가로채는 VCL 코드

type
TFormDialog = class(TForm)
  procedure FormCreate(Sender: TObject);
private
  Edit1: TEdit;
protected
  function GetText: String; virtual;
  procedure SetText(const Value: String); virtual;
public
  constructor Create (Text: string); reintroduce; overload;
  property Text: String read GetText write SetText;
end;

예제 5: 가상메소드로 구현된 프로퍼티의 폼 클래스.