Programmcode geschickter schreiben

[Blup]

Dann vieleicht so ein Ansatz:

Delphi-Quellcode:

function TComponentManager.GetClassType(AType: Integer): TIBasicMeta;
begin
  case AType of
    1: Result := TIEdit;
    {...}
  else
    raise Exception.Create( {...} );
  end;
end;

procedure TComponentManager.NewControl(AType: Integer); overload;
begin
  NewControl(GetClassType(AType));
end; 

procedure TComponentManager.NewControl(AClass: TIBasicMeta); overload;
begin
  {...}
end;