Unit "dynamisch" einbinden

[nuclearping]

Du kannst die Funktionen in Les und LesSQL in Klassen auslagern. Zum Beispiel kannst du hier auch auf Vererbung zurückgreifen.

Delphi-Quellcode:

unit LesBase;

interface

type
  TLesBase = class
  public
    function LeseDatei(Name: String): String; virtual; abstract;
  end;

  TLesBaseClass = class of TLesBase;

implementation

end.

Delphi-Quellcode:

unit Les;

interface

uses
  LesBase;

type
  TLes = class(TLesBase)
  public
    function LeseDatei(Name: String): String; override;
  end;

implementation

function TLes.LeseDatei(Name: String): String;
begin
  ...
end;

end.

Delphi-Quellcode:

unit LesSQL;

interface

uses
  LesBase;

type
  TLesSQL = class(TLesBase)
  public
    function LeseDatei(Name: String): String; override;
  end;

implementation

function TLesSQL.LeseDatei(Name: String): String;
begin
  ...
end;

end.

Und in dem Wrapper kannst du dann im Constructor die entsprechende Les-Klasse übergeben.

Delphi-Quellcode:

unit Lese;

interface

uses
  LesBase;

type
  TLese = class
    constructor Create(ALesClass: TLesBaseClass);
    destructor Destroy; override;
  private
    FLesClass: TLesBaseClass;
  public
    function getDatei: Boolean;
  end;

implementation

constructor TLese.Create(ALesClass: TLesBaseClass);
begin
  FLesClass := ALesClass.Create;
end;

destructor TLese.Destroy;
begin
  FLesClass.Free;
  inherited;
end;

function TLese.getDatei: Boolean;
begin
  Result := Length(FLesClass.LeseDatei('...') > 0);
end;

end.

Anwendung:

Delphi-Quellcode:

unit Form1;

interface

...

implementation

uses
  Lese, Les, LesSQL;

...

procedure TForm1.Button1Click(Sender: TObject);
var
  LesClass: TLesBaseClass;
begin
  case FUseClass of
    clLes:
      LesClass := TLes;
    clLesSQL:
      LesClass := TLesSQL;
  end;
  FLese := TLese.Create(LesClass);
  try
    if FLese.getDatei then
      ShowMessage('Juhu! \o/')
    else
      ShowMessage('Oh Noes! D:');
  finally
    FLese.Free;
  end;
end;

...

end.

Ungetestet. Aber das Prinzip sollte klar sein.