Diese ifdefs kann man im Prinzip auch durch
unit aliases oder
unit scope names ersetzen.
In diesem Fall also.
Delphi-Quellcode:
uses
Types,
Classes,
SysUtils,
Graphics,
VCL-Projekte haben als Namespace standardmäßig "
VCL"
und FMX-Projekte ein "FMX" in den Projektoptionen.
Projektoptionen > Erzeugen > Delphi-Compiler >
Unit-Gültigkeitsnamen.
Wird eine
Unit unter dem angegebenen Namen nicht gefunden, dann werden diese Namespaces durchprobiert.
z.B. bei den ersten Units wurde das bereits angewendet, denn diese Units heißen seit einer Weile ja schließlich so:
Delphi-Quellcode:
uses
System.Types,
System.Classes,
System.SysUtils,
...