Einzelnen Beitrag anzeigen

Benutzerbild von KodeZwerg
KodeZwerg

Registriert seit: 1. Feb 2018
3.691 Beiträge
 
Delphi 11 Alexandria
 
#5

AW: abwärtskompatibler unit zugriff

  Alt 15. Jan 2022, 13:20
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.
Gruß vom KodeZwerg
  Mit Zitat antworten Zitat