AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

abwärtskompatibler unit zugriff

Ein Thema von KodeZwerg · begonnen am 15. Jan 2022 · letzter Beitrag vom 17. Jan 2022
 
Benutzerbild von KodeZwerg
KodeZwerg

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

abwärtskompatibler unit zugriff

  Alt 15. Jan 2022, 04:57
Delphi-Version: 5
Hallo, in einer unit überschreibe ich den Aufruf einer anderen methode

Ich muss also den genutzten "uses" namen wissen um das original aufzurufen.

Wie realisiere ich das?

Hier mein Problem als Quelltext:
(stellt euch vor "foobar" gibt es tatsächlich auch in sysutils für dieses beispiel)

Delphi-Quellcode:
// so funktioniert es gut Beispiel:
{$IF CompilerVersion >= 23}
  {$DEFINE NameSpace}
{$ENDIF}

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

function Foobar: Boolean;
begin
  {$IF DEFINED(NameSpace)}
    System.SysUtils.Foobar;
  {$ELSE}
    SysUtils.Foobar;
  {$ENDIF}
end;
Delphi-Quellcode:
// in diese, fall scheitert es
{$IF CompilerVersion >= 23}
  {$DEFINE NameSpace}
{$ENDIF}

uses
  SysUtils;

function Foobar: Boolean;
begin
  {$IF DEFINED(NameSpace)}
    // der name kann nicht aufgelöst werden
    System.SysUtils.Foobar;
  {$ELSE}
    SysUtils.Foobar;
  {$ENDIF}
end;
Kann ich testen/herausfunden wie der programmierer die uses klausel angewandt hat?
Gruß vom KodeZwerg
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:08 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz