UNITS für VCL und FMX gleichzeitig verwenden

[bernhard_LA]

ich möchte div. Units von mir erstellt für Anwendungen unter dem VCL Framework in Zukunft auch mit Anwendungen im FMX Framework verwenden .
Die Plattform spezifischen Units von Delphi verhindern aber diesen Ansatz

Delphi-Quellcode:

   interface

   uses
   Vcl.Controls, Vcl.Forms, Vcl.StdCtrls, System.SysUtils, ....

Ferner weigert sich Delphi folgenden VCL Code procedure zu kompilieren

Delphi-Quellcode:

   procedure Write2Memo  (   ...... ; aMemo : Tmemo ) ;

Als Fehlermeldung kommt FXM.Memo nicht kompatibel zu VCL.Memo.
Kann man über ??????? abfragen ob die Anwendung für die FMX oder VCL PLatform ist und entsprechend die Units einbinden/Anpassen ?
Wenn die Lösung dann Lazarus als weitere Compiler Option unterstützt , wäre dieser Ansatz ggf. in der Zukunft auch ein Thema für uns.
Das ganze soll natürlich für "Komponenten" funktionieren die auf allen Plattformen identisch sind, als amemo.lines.add(...)
sobald ich Plattform spezifischen Code habe ist hier Schluss.
;

[DeddyH]

Ich hab zwar kein Firemonkey, aber müsste das nicht über div. IFDEFs zu machen sein?

[bernhard_LA]

aber finde ich heraus ob die Hauptanwendung im FXM Framework jetzt erstellt wird ?

[matthiaskary]

Hallo,

z.b. kannst du das so abfragen.

{$IF DECLARED(FireMonkeyVersion)}
{$DEFINE HAS_FMX}
{$ELSE}
{$DEFINE HAS_VCL}
{$IFEND}

[Neutral General]

Ich bin mir nicht sicher ob ich das Problem richtig verstehe aber vllt. reicht es in deinem Fall schon wenn du vor explizit VCL.TMemo, bzw. FMX.TMemo bei Deklarationen.

Kombiniert mit einem IFDEF sollte das dann auf jeden Fall hinhauen.

[RWarnecke]

Ich lege Dir mal diese Seite ans Herz. Die sollte alle Deine Fragen beantworten.

[himitsu]

Sollte man nicht besser das ausnutzen, wofür diese Prefixe eingeführt wurden?

Man gibt im Projekt die entsprechenden Namespaces an (sollten sogar schon standardmäßig an sein, bei neueren Projekten)
und schreibt in die units nur noch Controls, Forms, StdCtrls, {System.}SysUtils, .... rein.

Delphi findet nun die Units nicht und probiert die angebenen Namespaces durch, wobei in der VCL-Anwendung
dann das Vcl.Controls, Vcl.Forms, Vcl.StdCtrls, {System.}SysUtils, .... bei raus komm

und bei einer FireMonkey das Fmx.Controls, Fmx.Forms, Fmx.StdCtrls, {System.}SysUtils, .... .

(System sollte in beiden Anwendungen definiert sein)