จะแปลงชื่อคลาสเป็นสตริงเป็นคลาสได้อย่างไร?

เนื่องจากคุณใช้ stringlist คุณจึงสามารถจัดเก็บคลาสไว้ที่นั่นได้เช่นกัน:

var
  C: TClass;

  StringList.AddObject(C.ClassName, TObject(C));

...

for I := 0 to StringList.Count - 1 do
  Size := TClass(StringList.Objects[I]).InstanceSize;

...

หากคลาสของคุณมาจาก TPersistent คุณสามารถใช้ RegisterClass และ FindClass หรือ GetClass มิฉะนั้นคุณสามารถเขียนกลไกการลงทะเบียนบางอย่างได้ด้วยตัวเอง

ใน Delphi 2010 คุณสามารถใช้:

function StringToClass(AName: string): TClass;
var
  LCtx: TRttiContext;
  LTp: TRttiType;
begin
  Result := nil;

  try
    LTp := LCtx.FindType(AClassName);
  except
    Exit;
  end;

  if (LTp <> nil) and (LTp is TRttiInstanceType) then
    Result := TRttiInstanceType(LTp).Metaclass;
end;

หมายเหตุหนึ่ง เนื่องจากคุณเก็บเฉพาะชื่อคลาสไว้ในรายการ วิธีการนี้จึงไม่ทำงานเนื่องจาก TRttiContext.FindType คาดหวังชื่อประเภทแบบเต็ม (เช่น uMyUnit.TMyClass) การแก้ไขคือการแนบหน่วยที่คุณจัดเก็บคลาสเหล่านี้ไว้ในลูปหรือในรายการ

1. คุณต้องใช้ FindClass เพื่อค้นหาการอ้างอิงคลาสตามชื่อ หากไม่พบคลาส ข้อยกเว้นจะเกิดขึ้น
2. อีกทางเลือกหนึ่ง คุณต้องเรียก RegisterClass สำหรับชั้นเรียนของคุณ หากไม่ได้อ้างอิงอย่างชัดเจนในโค้ด