DPR-Uses: Methode zum Include von zusätzlichen Files

[Rollo62]

Hallo Uwe,

ja, das hatte ich ja schon versucht, aber der Compiler nahm trotzdem die orginalen Files
Muss ich nochmal checken, vielleicht war da irgendwas falsch gelaufen.

Ich hatte alle Fixes in einer zentralen Unit in deren Uses geladen, und diese zentrale Unit mit in das Projekt eingebunden.

Weil es aber nicht funktionierte, und die Fehlerursache etwas unerwartet war,
habe ich nach einem anderen Weg gesucht, mit dem ich garantieren kann das wirklich die gefixten Files eingebunden werden.

Rollo

[Der schöne Günther]

Garantieren könntest du das evtl. indem du per {$DEFINE} etwas in einer deiner Fix-Units deklarierst und z.B. in der .DPR prüfst ob das gesetzt ist. Wenn nicht, wird ein Fehler geworfen.

Aber wie Uwe sagt, die Priorität ist eigentlich

1. Ins Projekt explizit aufgenommene Dateien
2. Projekt-Suchpfad
3. Globaler Bibliothekspfad (DCUs)

Vielleicht hättest du das Projekt einfach vorher "bereinigen" müssen?

[Rollo62]

Ja, ich habe mir das nochmal angeschaut.
Es gab zwei Kopien der Units, einer im falschen Pfad:
War nur ein schneller Test, und womöglich habe ich zu schnell getippt
Ansonsten ist es jetzt wieder in Ordnung.

Jetzt habe ich es wieder zurückgebaut von Includes auf Units:

die normale Unit _FmxFixes_Startup.pas, ohne Include

Delphi-Quellcode:

unit _FmxFixes_Startup;

interface

implementation

uses
    iOSapi.CoreLocation
  , System.iOS.Sensors
  , FMX.Media.Android
  ;
  
end.

das dann geladen in den Uses der DPR:

Delphi-Quellcode:

uses
  System.StartUpCopy,
  _FmxFixes_Startup in '_FmxFixes\_FmxFixes_Startup.pas',  //<-- Ja, das war der Pfad
  FMX.Forms,
  uMain in 'uMain.pas' {Main_Frm};

• Bei Änderung der Forms bleiben die Uses korrekt erhalten, so wie es sein soll.
• Und es gibt auch eine Fehlermeldung wenn der Search-Pfad fehlt oder falsch ist

So war es gedacht, dankesehr für die Mithilfe an Alle.

[Rollo62]

Noch ein Nachtrag, habe jetzt noch eine Verifikation der CompilerVersion mit eingebaut.
Eine Compiler-Warnung wird ausgegeben wenn es nicht passt.

In den _FMX_Fixes_Startup.pas Units wird die jeweils angedachte CompilerVersion gecheckt:

Delphi-Quellcode:

const
    TargetVersion = 33;  // 10.3.1 Rio

{$IF  CompilerVersion < TargetVersion }
{$MESSAGE WARN '"_FmxFixes_Startup" TargetVersion doesn''t match CompilerVersion' }
{$ENDIF COMPILER}

Es gibt auch eine "leere" _FMX_Fixes_Startup, welche auch einen Hinweis gibt:
{$MESSAGE WARN 'Soft4: "_FmxFixes_Startup" is not set"' }
Damit So kann ich die FMX_Fixes einfach umschalten, zusammen mit den Units, und die Versionen werden auch gecheckt.

So wird es noch schwerer mal eine falsche Unit einzubinden, in der Versionshölle