Programmcode geschickter schreiben

[squetk]

Das lässt sich mit dem Einsatz von Metaklassen lösen.

Ungefähr so:

Delphi-Quellcode:

TIComponent = (IEdit,IComboBox,IComboBoxList, ...) 

TIComponentMeta = class of TIComponent;

procedure TComponentManager.NewControl(AType:TIComponentMeta; 
                                       AName,ATitle,AValue,AHint,AList:String; 
                                       ALeft,ATop,AWidth,AHeight:Integer); 
var IComponent : TIComponent;
begin 
  IComponent := TIComponentMeta(AType).Create(WorkPanel);
   with IComponent do 
                    begin 
                      Name := AName; 
                      Title := ATitle; 
                      Hint := AHint; 
                      Value := AValue; 
                      Left := ALeft; 
                      Top := ATop; 
                      Width := AWidth; 
                      Height := AHeight; 
                    end; 
  end; 
  // FControlList.Add() 
end;