DGL • Thema anzeigen - Dynamischer Funktionsaufruf

Dynamischer Funktionsaufruf

Moderator: DGL-Team

Seite 1 von 1

[ 5 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

WhiteHunter

Betreff des Beitrags: Dynamischer Funktionsaufruf

Verfasst: Di Jan 21, 2003 19:47

DGL Member

Registriert: Mo Sep 02, 2002 15:41
Beiträge: 867
Wohnort: nahe Stuttgart

Hi,

ist es mit Delphi in irgendeiner Weise möglich eine Funktion oder Prozedur dynamisch aufzurufen? (zB. durch Eingabe in ein Editfeld)
Ungefähr so dachte ich mir das:

Code:

 
...
 
 StartProcedure(StrToProcedure(Edit1.Text));
 
...

Nach oben

KidPaddle

Betreff des Beitrags:

Verfasst: Di Jan 21, 2003 20:58

DGL Member

Registriert: Mo Jan 20, 2003 20:10
Beiträge: 424
Wohnort: nähe Starnberg

Hi,

wenn diese Procedure eine Methode in einem Objekt ist, kannst Du mit MethodAddress(const Name : ShortString) einen Zeiger auf die gesuchte Methode bekommen.

Könnte wie folgt aussehen:

Code:

 
type
 
 &nbsp;TCmdFunc = procedure(params : TStrings) : String;
 
....
 
function TConsole.Execute(Input : String) : String;
 
var
 
 &nbsp;Paramter : TStrings;
 
 &nbsp;sCmd &nbsp; &nbsp; &nbsp;: String;
 
 &nbsp;Func &nbsp; &nbsp; &nbsp; &nbsp;: TCmdFunc;
 
begin
 
 &nbsp;Paramter := TStringlist.Create;
 
 &nbsp;try
 
 &nbsp; &nbsp;// Eingabe parsen, das erste Wort enthaelt den Befehl
 
 &nbsp; &nbsp;....
 
 &nbsp; &nbsp;Func := MethodAddress(sCMD);
 
 &nbsp; &nbsp;if Assigned(Func) then begin
 
 &nbsp; &nbsp; &nbsp;// Befehl existiert
 
 &nbsp; &nbsp; &nbsp;Result := Func(Parameter);
 
 &nbsp; &nbsp;end else begin
 
 &nbsp; &nbsp; &nbsp;Result := 'Unbekannter Befehl: ' + sCmd;
 
 &nbsp; &nbsp;end;
 
 &nbsp;finally
 
 &nbsp; &nbsp;FreeAndNil(Parameter);
 
 &nbsp;end;
 
end;

Sollte so gehen.

Gruß
Thomas

_________________
http://www.seban.de

Nach oben

WhiteHunter

Betreff des Beitrags:

Verfasst: Di Jan 21, 2003 21:00

DGL Member

Registriert: Mo Sep 02, 2002 15:41
Beiträge: 867
Wohnort: nahe Stuttgart

Kann ich Result auch eine Prozedur zuweisen? Obwohl... ich schreibe eh fast nur Funktionen :wink:

Danke auf jedenfall!

Nach oben

KidPaddle

Betreff des Beitrags:

Verfasst: Di Jan 21, 2003 21:14

DGL Member

Registriert: Mo Jan 20, 2003 20:10
Beiträge: 424
Wohnort: nähe Starnberg

Nein, leider nein. Ein Resultparameter wird in diesem Fall erwartet, da die Funktion so definiert wird. Du kannst TCMDFunc so definieren, das kein Result-Ergebnis erwartet wird, also so:

TCmdProc = procedure (Parameter : TStrings);

Leider gibt es keine einfache Moeglichkeit fest zustellen, ob eine Funktion oder eine Procedure aufgerufen wird.

_________________
http://www.seban.de

Nach oben

Gast

Betreff des Beitrags:

Verfasst: Mi Jan 22, 2003 11:18

Ops, ein kleiner Fehler. Hinter der Funktionsprototype fehlt noch ein of Object, also TCmdFunc = function (Params : TStrings) : String of object. Nicht vergessen, sonst gibts bestimmt Probleme.

KidPaddle

Nach oben

Seite 1 von 1

[ 5 Beiträge ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 11 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.