Code strukturieren! Wie macht man es richtig ..

[EWeiss]

So habs jetzt so gemacht ..
Ist aber vom Code her sogar noch mehr als über die alte Funktion.

Delphi-Quellcode:

  // SkinConfig
  TSkinConfig = class
  private
    FAeroEmulate : Integer;
    function GetAeroEmulate(FMode, FReadMode: Integer): Integer;
    procedure SetAeroEmulate(FMode, FReadMode: Integer; const Value: Integer);
  public
    property AeroEmulate[FMode, FReadMode: Integer]: Integer read GetAeroEmulate write SetAeroEmulate;
  end;
  
  function TSkinConfig.GetAeroEmulate(FMode, FReadMode: Integer): Integer;
  begin
     if FReadMode > 0 then
      FAeroEmulate := FMode;

     Result := FAeroEmulate;
  end;
  
  // aus meiner TextDatei eingelesen
  case SkinType of 
    stAeroEmulate:
    begin
      AeroEmulate[StrToInt(ParseThis(sBF, ',', 1)), 1];
    end; 
  end;

Delphi-Quellcode:

  // SkinEngine
  TSkinEngine = class
  private
    //
  public    
    function SK_AEROEMULATE: Integer;
  end;
  
  function TSkinEngine.SK_AEROEMULATE: Integer;
  begin
     Result := SkinConfig.AeroEmulate[0, 0];

  end;
  
  // im Code abgefragt
  if SK_AEROEMULATE > 0 then
  begin
    //
  end;

Und genau das meine ich extrem viel Code nur um eine Funktion abzufragen.

gruss Emil