Button.OnClick Procedure aus DB lesen?

[strom]

Hallo,

ist es möglich die OnClick (Event) aus einer DB zu lesen?


Vielleicht so?
Button1.OnClick := Tabel1.FieldByName('Funktion').Text;

[Der schöne Günther]

Delphi ist keine Skriptsprache. Die Ereignis-Behandler müssen von dir geschriebener Code sein der sich in der erstellten .exe-Datei befindet. Du kannst hingegen in der Datenbank hinterlegen welche der von dir geschriebenen Handler benutzt werden soll.

Delphi-Quellcode:

var
   onClickName: String;
begin
   onClickName := Tabel1.FieldByName('Funktion').AsString;
   
   if (onClickName = 'spezial') then
      Button1.OnClick := onClickSpezial
   else if (onClickName = 'super-spezial') then
      Button1.OnClick := onClickSuperSpezial
   else
      Button1.OnClick := onClickNormal;
end;

[strom]

ah

super, danke für Deine Hilfe

[TigerLilly]

Hmmm. Ich hab das noch nicht ausprobiert, aber das da
http://www.malcolmgroves.com/blog/?t...nymous-methods
behandelt Anonyme Funktionen wie Daten. Und Daten bekomme ich in die Datenbank +kann sie von dort lesen.

Das da ist auch hilfreich:
https://stackoverflow.com/questions/25500770/is-there-a-way-in-delphi-to-assign-an-anonymous-method-to-a-button-event?rq=1


Solltest du da was ausprobieren, lass es uns wissen.

[himitsu]

Zitat:

ist es möglich

JaNein.

Methoden sind Zeiger. (eigentlich Zwei, aber wenn du das Objekt kennst, dann nur noch Einer)
Die Namen sind "eventuell" in der TypeInfo und RTTI hinterlegt und man kann darüber den Zeiger bekommen.
System.TMethod (Code = der Methoden-Zeiger und Data = die Object-Referenz, was in der Methode dann das Self ist)

Das TObject.MethodAddress und TObject.MethodName nutzt z.B. der DFM-Reader (TReader/TWriter) und es geht natürlich nur für Methoden, die published sind.
Und dann gibt es noch Einiges in den Units TypInfo und RTTI.

[freimatz]

Zitat von TigerLilly:

http://www.malcolmgroves.com/blog/?t...nymous-methods
behandelt Anonyme Funktionen wie Daten. Und Daten bekomme ich in die Datenbank +kann sie von dort lesen.

Na ja stenggenommen werden nicht die Methoden in der DB gespeichert sondern nur Keys dazu. Zur Kompilierzeit muss der Code also schon bekannt sein.

Wenn man wirklich den Code speichern möchte, dann geht das IMHO nur wenn man eine Art Plugin-System implementiert was man mit DLLs oder BPLs machen kann und dann kann man diese dann als BLOB speichern. (Wobei ich mir jetzt keine sinnvoll Anwendung vorstellen kann)

Oder man implementiert halt doch eine Scriptsprache ins Programm und speichert die Scripts.

[Delphi.Narium]

Wenn man ins Programm PascalScript von RemObjects einbaut, sollte sowas möglich sein.

Man braucht dann halt ein Script, dass man kompilieren und ausführen kann. Diese Scripts kann dan auch Ereignisroutinen enthalten, die man diversen Komponenten im Programm zuweisen kann.

Ein ganz banales Beispiel, dass dem DataSet meines Editors 'ne AfterScroll-Routine zuweist wäre:

Delphi-Quellcode:

program Test;

procedure MachWas(DataSet: TDataSet);
begin
  Status(DataSet.Fields.Fields[0].AsString);
end;

begin
  DataSet.AfterScroll := @MachWas;
end.

Ab jetzt wird beim Scrollen durch die Datenmenge in der Statuszeile der Inhalt des ersten Feldes des aktuellen Datensatzes angezeigt.

Das kann man analog auch mit jeder anderen Komponenten machen.

Wenn man also in der Datenbank ein Script hat, das sowohl die Ereignisroutinen, als auch deren Zuweisung enthält, kann man das gewünschte umsetzen.