VCL Types in FMX Anwendung

[KodeZwerg]

Reicht es da nicht aus wenn man es einmal in der .dpr ankündigt damit es global fürs ganze Projekt Gültigkeit hat? @Schokohase

[Schokohase]

Zitat von KodeZwerg:

Reicht es da nicht aus wenn man es einmal in der .dpr ankündigt damit es global fürs ganze Projekt Gültigkeit hat? @Schokohase

Nein

[KodeZwerg]

Per .dpr defined, per Create getestet

Delphi-Quellcode:

procedure TForm18.FormCreate(Sender: TObject);
begin
{$IFDEF Schokohase}
  mmo1.Lines.Add('Schokohase: True');
{$ELSE Schokohase}
  mmo1.Lines.Add('Schokohase: False');
{$ENDIF Schokohase}
end;

und jupp, kommt ein False raus. Wieder was dazu gelernt.

[bernhard_LA]

ich habe eine Unit entwickelt, da diese unit keine GUI elemente verwendet, also doch auch für beide Frameworks verfügbar sein sollte,
wie kann ich dann den Compiler anweisen, "bitte immer aus system.types die Typen importieren und nicht aus vcl.types" ?

Die Unit wird einmal eingebunden un eine APP die FMX Framework verwendet und einmal in eine andere mit dem VCL Framework.


Gibt es hier eine Best-Practise Dokumentation ????
Später möchte ich dann auch noch nach FMX.Linux ........................

[mkinzler]

Man kann auch mit den Prefixen in den Projekteinstellungen arbeiten und dann nur

Uses ..., <UnitName>, ...; verwenden wird dann zu
VCL.<UnitName> oder FMX.<UnitName> expandiert.

[Harry Stahl]

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}

  ;