abwärtskompatibler unit zugriff

[himitsu]

Ich bin ja schreibfaul und finde es mit ELSE einfach unleserlich sinnlos zu lang. Und das DEFINED() lenkt auch nochmal vom Eigentlichen ab.

Delphi-Quellcode:

uses {$IFDEF NameSpace}System.{$ENDIF}SysUtils;

{$IFDEF NameSpace}System.{$ENDIF}SysUtils.Foobar;

Es wäre zu praktisch, wenn Delphi endlich mal (einfache/kurze) Makros lernen würde, aber der Hersteller weigert sich vehement.
Mein Vorschlag wäre ja sowas wie

Delphi-Quellcode:

{$IF CompilerVersion >= 23}
  {$MACRO NSSystem 'SysUtils.'}  // oder   {$DEFINEMACRO NSSystem 'SysUtils.'}
{$ENDIF}

uses {$NSSystem}SysUtils;  // oder {$M NSSystem} oder {$MACRO NSSystem}