Folgendes Problem:
Ich habe eine
Unit „Les“:
Delphi-Quellcode:
Unit Les;
…
Procedure LeseDatei(
Name:
String);
begin
AssignFile(Name…
end;
Dann gibt es die
Unit „LesSQL“:
Delphi-Quellcode:
Unit LesSQL;
…
Procedure LeseDatei(
Name:
String);
begin
Sql := „SELECT * FROM `Name`…
end;
Die Methodenaufrufe der
Unit LesSQL wurden aus Gründen der Kompatibilität identisch mit denen der Les erstellt. Die beiden Dateien sollten auch so erhalten bleiben.
Bislang wurden die Units immer je nach Anwendungsfall eingebunden und kompiliert.
Nun gibt es eine neue Klasse „TLese“ als Wrapper, die den Zugriff auf die Les/LesSQL-Units vereinfacht:
Delphi-Quellcode:
// LeseDatei aufrufen.
Function TLese.getDatei: Boolean;
Ich hätte nun gerne eine Möglichkeit, je nach Anwendungsfall die passende
Unit in der Klasse TLese einzubinden (z.B. mittels Parameter im Konstruktor).
Gibt es hierfür eine Lösung? Vielleicht per Compiler-Direktive?