abwärtskompatibler unit zugriff

[KodeZwerg]

Zitat von dummzeuch:

Eigentlich sollte SysUtils alleine schon ausreichen

Das bestreite ich ja auch nicht.

Mein problem ist halt das je nach dem wie die uses aussieht muss auch mein $define inhalt aussehen.
Ich habe keinen einfluß auf den uses part nur auf meinen quelltext.

Ein nachvollziehbares Beispiel:

Delphi-Quellcode:

program Test;

{$IF CompilerVersion >= 23}
  {$DEFINE NameSpace}
{$ENDIF}

uses
//  {$IF DEFINED(NameSpace)}System.SysUtils;{$ELSE}SysUtils;{$ENDIF}
 SysUtils;

procedure Sleep(const Value: Int64);
begin
  {$IF DEFINED(NameSpace)}
    System.SysUtils.Sleep(Value);
  {$ELSE}
    SysUtils.Sleep(Value);
  {$ENDIF}
end;

begin
  WriteLn('Sleeping');
  Sleep(100);
  WriteLn('Awake');
  ReadLn;
end.