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)

[RWarnecke]

Das mit den Namespaces hat bei mir noch nie richtig funktioniert eher nur sporadisch. Ich gehe lieber über die Compilerschalter, das ist aus meiner Sicht sicherer und ich kann es besser definieren.

[Sir Rufo]

Ich vermute mal, du hast UI und Logik zu dicht zusammen.

Eigentlich gibt es keinen Grund direkt in ein Memo zu schreiben ...

Man schreibt einfach in eine StringList und diese StringList zeigt die Form einfach in dem Memo an.

Hmmm, eigentlich macht man das noch etwas anders ....

In eine Struktur wird ein Eintrag erstellt (Record oder Klassen-Instanz ist egal).
Aus diesem/diesen Einträgen wird dann zur Visualisierung eine StringList gefüllt.
Die Form zeigt im Memo dann den Inhalt dieser StringList an.

[uligerhardt]

Zitat von Sir Rufo:

Man schreibt einfach in eine StringList und diese StringList zeigt die Form einfach in dem Memo an.

... oder man definiert Write2Memo mit einem TStrings-Parameter anstelle von TMemo und übergibt Memo1.Lines an diesen. Etwa so:

Delphi-Quellcode:

procedure Write2Memo(ALines: TStrings);
begin
  ALines.BeginUpdate;
  try
    ALines.Add('111');
    ALines.Add('222');
    ALines.Add('333');
  finally
    ALines.EndUpdate;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Write2Memo(Memo1.Lines);
  Write2Memo(ListBox1.Items); // Geht dann z.B. auch für Listboxen
end;