Einbinden von Units unterbinden

[EWeiss]

Zitat von Uwe Raabe:

Zitat von Schokohase:

Bei Unit-Gültigkeitsbereichsnamen ist u.a. der Eintrag Winapi enthalten.
Wird jetzt die Unit DirectDraw über den Suchpfad gesucht, dann wird erst nach Units mit dem Namen Winapi.DirectDraw gesucht und ja auch gefunden, die aber gar nicht gewollt sind. Erst wenn keine Winapi.DirectDraw gefunden würde, dann würde nur nach DirectDraw gesucht.

Nein, das stimmt so nicht. Steht in der uses ein DirectDraw, dann wird erst im Projektverzeichnis und dann in den Suchpfaden nach DirectDraw gesucht. Erst wenn dabei keine Unit gefunden wurde, werden die Unit-Gültigkeitsbereichsnamen durchprobiert (siehe beiliegendes Projekt).

Was macht das Projekt?
Bei mir nichts, was vergessen?
Mal davon abgesehen das auch hier die falsche zu bearbeitende Datei geöffnet wird.

Delphi-Quellcode:

program TestProject;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  DirectDraw;

begin
  try
    { TODO -oUser -cConsole Main : Code hier einfügen }
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

gruss