Delphi: xác định loại thực tế của một generic?

Question

Có cách nào để xác định loại biến được chuyển làm đối số cho phương thức không? Hãy xem xét các lớp:

TSomeClass = class 
    procedure AddToList<T: TDataType; U: TListClass<T>>(Element: T; List: U); 
end; 

với việc thực hiện phương pháp

procedure TSomeClass.AddToList<T, U>(Element: T; List: U); 
begin 
    if Element is TInt then 
    List.AddElement(TInt.Create(XXX)) 
    else if Element is TString then 
    List.AddElement(TString.Create(YYY)); 
end; 

nơi TInt.Create() và TString.Create() có bộ khác nhau của các đối số, tuy nhiên, cả hai đều kế thừa từ TDataType.

Bây giờ, tôi biết không thể sử dụng is -operator như thế này, nhưng có một giải pháp thay thế hợp pháp làm những gì tôi yêu cầu ở đây không?

Answer 1

Không thể sử dụng là nhà điều hành ở đây là sự cố đã biết nhưng có cách giải quyết khá đơn giản.

if TObject(Element) is TInt then 
    List.AddElement(TInt.Create(XXX)) 

Ngoài ra, vì loại chung là một phần của lớp và được biết đến lúc biên dịch, bạn có thể nên chuyển đổi mã của mình tốt hơn. Tạo hai lớp chung khác nhau, một trong số đó chấp nhận TInt làm tham số <T> và một trong số đó chấp nhận TString. Đặt chức năng kiểu cụ thể vào chúng ở cấp độ đó và đưa chúng xuống từ tổ tiên chung cho chức năng được chia sẻ.

Answer 2

Câu hỏi này tôi hỏi một số thời gian trước đây

Conditional behaviour based on concrete type for generic class

thể được quan tâm, đặc biệt là nếu bạn muốn sử dụng không chỉ TObject con cháu mà còn loại nguyên thủy trong điều kiện của bạn.