Mal abgesehen davon, dass es die
unit "
VCL.Types" nicht gibt, im Prinzip wurde die Frage schon beantwortet, aber hier noch mal als konkretes Beispiel:
1. In den Projekteinstellung der FMX-Anwendung "FMXApp" als Bedingung deklarieren.
2. In der
Unit, die sowohl in
VCL-Anwendung und FMX-Anwendung genutzt wird, wie folgt:
Delphi-Quellcode:
unit BeideWelten;
Interface
uses
System.Types,
// Plattformneutral, Typen hieraus gelten für alle Plattformen
System.StrUtils,
...
{$IFDEF FMXApp}
FMX.Types,
FMX.Graphics
{$ELSE}
VCL.Clipboard,
VCL.Graphics
{$ENDIF}
;