Làm thế nào để lấy tham chiếu kiểu lớp bằng tên của nó trong Delphi XE?

Question

Tôi thực sự đang cố gắng sử dụng Rtti để ngụ ý một phương pháp chung của người gọi. Nó sẽ làm việc như thế này:

• tôi sẽ cung cấp tên lớp, tên phương thức và biện luận
• các Invoker sẽ làm công việc của mình bằng cách gọi phương thức quy định của lớp này

Vì vậy, tôi cần tham chiếu lớp để lấy thông tin Rtti của nó và tìm phương thức mà tôi muốn gọi.

Có cách nào để thực hiện điều đó mà không triển khai danh sách tham chiếu lớp của các lớp mà tôi muốn làm việc không?

Answer 1

Để lấy tham chiếu lớp bằng tên của mình, bạn phải sử dụng hàm TRttiContext.FindType chuyển Tên của lớp và truy xuất cá thể sử dụng thuộc tính AsInstance và sau đó bạn có thể gọi hàm tạo của lớp.

var 
    Instance : TRttiInstanceType; 
    ctx : TRttiContext; 
    mClass : TValue; 
begin 
    ctx := TRttiContext.Create; 
    Instance := ctx.FindType(ClassName).AsInstance; //ClassName is something like 'Classes.TStringList'; 
    mClass := Instance.GetMethod('Create').Invoke(Instance.MetaclassType,[]); 

    //do your stuff here 


end;