AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Proceduren vergleichen

Ein Thema von thomasch · begonnen am 3. Jul 2006 · letzter Beitrag vom 3. Jul 2006
Antwort Antwort
thomasch

Registriert seit: 7. Apr 2005
57 Beiträge
 
Delphi 2007 Architect
 
#1

Proceduren vergleichen

  Alt 3. Jul 2006, 13:46
Hallo,
ich habe bei mir folgendes Konstrukt:

Delphi-Quellcode:
Type
  TDofunction = procedure;

  TMeineFunction = class
    MProcedure : TDofunction;

[...]
procedure foo;

begin

  Mainfunction:=TMeineFunction.Create;
  Mainfunction.MProcedure:=foo
[...]
 dosomething;
end;

procedure Bar;

begin

  Mainfunction:=TMeineFunction.Create;
  Mainfunction.MProcedure:=bar
[...]
  dosomething;
end;
Jetzt möchte ich irgendwie abfragen, welche Funkion irgendwann mal gestartet wurde. Leider funktioniert
Delphi-Quellcode:
procedure dosomething;
begin
  if Mainfunction.MProcedure=foo then
   [...]
  end;
end;
nicht. Ich könnte jetzt TMeineFunction um einen String erweitern - aber gibt es da nicht einen eleganteren Weg?

Danke schonmal


Thomasch
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
34.931 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#2

Re: Proceduren vergleichen

  Alt 3. Jul 2006, 15:15
Mit deinem Code würden die Funktionen (wenn es welche wären) aufgerufen und deren Ergebnis verglichen ... da's aber Prozeduren sind, meckert der wegen des fehlenden Result.

Du willst ja nur die Adressen vergleichen
Code:
if [color=#ff0000][b]@[/b][/color]Mainfunction.MProcedure = [color=#ff0000][b]@[/b][/color]foo then
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 11:35 Uhr.
Powered by vBulletin® Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf