Delphi tương đương với "+ =" để thêm các phần tử vào một bộ là gì?

Question

Trong các ngôn ngữ khác như C++, có các toán tử để thực hiện một kiểu hoạt động cộng hoặc bằng hoặc để thêm các kiểu/cờ bổ sung. Có một tương đương trong Delphi?

Ngay bây giờ tôi có một số mã như:

label1.Font.Style := label1.Font.Style + [fsBold]; 
label2.Font.Style := label2.Font.Style + [fsBold]; 

Nhưng tôi rất thích, nếu có thể, để có được điều đó đơn giản hóa một chút để cái gì đó ngắn gọn hơn mà không trùng lặp tên nhãn trên cả hai mặt của sự phân công toán tử, điều gì đó dọc theo các dòng: label1.Font.Style += [fsBold]; hoặc label1.Font.Style := self + [fsBold];

Việc này có thể thực hiện được không? Hay không quá nhiều?

Answer 1

Đây là một trong số ít các trường hợp nơi mà tôi có thể đề nghị with tuyên bố:

with label1.Font do Style := Style + [fsBold]; 
with label2.Font do Style := Style + [fsBold]; 

Thông thường, vấn đề với with là nó không rõ ràng một truy cập thành viên là những gì và những gì không, nhưng nếu phạm vi là một tuyên bố duy nhất trong đó một thuộc tính duy nhất được sử dụng, nó đủ rõ ràng.

Answer 2

Delphi có chức năng Inc, nhưng nó không hoạt động trên các thuộc tính:

Inc(a);  // Increment a with 1 
Inc(a, 5); // Increment a with 5 

Nếu bạn cần thêm phong cách cho một phông chữ thường, bạn có thể viết một thủ tục:

procedure AddStyle(const AFont: TFont; const AStyle: TFontStyles); 
begin 
    AFont.Style := AFont.Style + AStyle; 
end; 

(Với các phiên bản sau của Delphi bạn có thể sử dụng các trình trợ giúp lớp).

Answer 3

Subclass TLabel loại và tạo ra một phương pháp như thế này:

procedure TMyLabel.AddStyle(const AStyle: TFontStyles); 
begin 
Self.Font.Style := Self.Font.Style + AStyle; 
end; 

Sau đó, bạn có thể đặt các lớp thành một gói bpl và cài đặt nó vào trình soạn thảo. Sau đó, bạn có thể thay thế tất cả nhãn của mình thành các nhãn tùy chỉnh. Đối với dự án lớn, tôi muốn giới thiệu Notepad ++ để thay thế tất cả các khai báo của bạn trong .pas và (văn bản!) .dfm tệp. Điều này nghe có vẻ phức tạp nhưng nó chưa đầy một giờ làm việc. Chúc may mắn!

Answer 4

Bao gồm những gì bạn đang tìm kiếm. Thật không may bạn chạy vào vấn đề Label.Font.Style là một tài sản và phải được giao cho và không được thông qua bởi var. Tuy nhiên, bạn có thể thực hiện việc này:

var 
    fontStyle: TFontStyles; 
begin 
    fontStyle := Label1.Font.Style; 
    Include(fontStyle, fsBold); 
    Label1.Font.Style := fontStyle;