Làm cách nào để xây dựng một đối tượng có nhiều thuộc tính?

Question

Tôi đang gặp một chút rắc rối khi thiết kế một Lớp học. Tạo một lớp khách hàng trông đơn giản:

TCustomer = Class 
    private 
    FIdNumber: String; 
    FName: String; 
    procedure SetName(const Value: String); 
    procedure SetNumber(const Value: String); 
    public 
    Property Name : String read FName; 
    Property IdNumber : String read FIdNumber; 
    Constructor Create(Number, Name : String); 
end; 

constructor TCustomer.Create(ANumber, AName: String); 
begin 
    SetName(AName); 
    SetNumber(ANumber); 
end; 

MyCustomer := TCustomer.Create('1', 'John Doe'); 

Nhưng cũng khách hàng của tôi có nhiều thuộc tính: nơi ông sống, ngày tháng năm sinh vv vv

TCustomer = Class 
    private 
    {..snip snip..} 
    public 
    Property Name : String read FName; 
    Property IdNumber : String read FIdNumber; 
    Property Street : String read FStreet; 
    Property HouseNumber : Integer : read FHouseNumber; 
    .. 
    .. 
    .. 
    Constructor Create(Number, Name, Street : String; Housenumber : Integer .. .. ..); 
end; 

Như bạn thấy tôi kết thúc với một constructor với rất nhiều đối số. Một cách tốt hơn để xây dựng một đối tượng với rất nhiều thuộc tính là gì?

Answer 1

Nếu một lớp nhất định cần phải có nhiều lĩnh vực, tôi sẽ làm cho một nhà xây dựng chỉ với các thông số bắt buộc và phần còn lại tôi sẽ giữ trong thuộc tính có khả năng ghi:

type 
    TCustomer = class 
    private 
    FName: string; 
    FIdNumber: string; 
    FStreet: string; 
    FHouseNumber: Integer; 
    public 
    // constructor is empty or just with mandatory parameters 
    constructor Create; 
    // properties are writeable 
    property Name: string read FName write FName; 
    property IdNumber: string read FIdNumber write FIdNumber; 
    property Street: string read FStreet write FStreet; 
    property HouseNumber: Integer read FHouseNumber write FHouseNumber; 
    end; 

Điều này tất nhiên phụ thuộc, nếu bạn có thể phơi bày những các thuộc tính để có thể ghi được, nhưng cách sử dụng trông trong chế độ xem của tôi tốt hơn hàm tạo với nhiều tham số:

var 
    Customer: TCustomer; 
begin 
    Customer := TCustomer.Create; 
    Customer.Name := 'Name'; 
    Customer.IdNumber := 'ID number'; 
    Customer.Street := 'Street'; 
    Customer.HouseNumber := 12345; 
end;