funktion aufrufen deren namen in einem string steckt

[griever]

mit findcompnent kann man ja ziemlich praktisch auf eine componente zugreifen deren name in einem string steht.
nun meine frage: gibts das auch für funktion/proceduren bzw eine alternative dazu?

ich habe mir überlegt, das man ja theoretisch eine eigene componente machen könnte, die halt unterschiedlich benannte wird und dann unterschiedlich funktionen ausführt. finde das aber umständlich, weil man dann ja jede funktion anders typisieren müsste.

[Apollonius]

Funktionsnamen sind im Kompilat nicht mehr erhalten - von etwaigen Debuginformationen einmal abgesehen. Also: unmöglich. Du könntest allerdings auf Methoden umsteigen, die du im published-Abschnitt deklarierst: Diese Namen sind in der RTTI gespeichert. Siehe TObject.MethodAddress.

[himitsu]

Da Delphi keine Namen von Funktionen speichert, ist das so nicht möglich.

Einzige Möglichkeiten:
- definier sie als Published in einer Klasse, dann kann man dank RTTI diese auflisten
- verwende ein Array, wo die Zeiger zu den Funktionen und ihr Name drin aufgelistet wurden (natürlich von dir selber) und such dann einfach dieses Array ab
- und maximal noch die Exports-Liste (ja, die gibt es auch bei einer EXE und nicht nur bei DLLs )

[edit]
Apollonius war schneller , aber ich hab mehr

[griever]

also ich versuch grad die Pointer der funktionen abzuspeichern und danach aufzurufen ... was mich wieder zum problem führt das 1.:
ich ja den inhalt des strings nicht einfach als name für den index des array setzen kann
bsp im string steht: 'abc'
und im array sollte dann stehen :
abc := @funktion();
abcd := @anderefunktion();
2.der index ja eine zahl sein muss

[Meflin]

-> Dann leg dir eine Hashtable an, die sind genau dafür gedacht. Du iwrst im forum fertige implementationen dafür finden. Dann kannst du unter einem "Stringindex" was abspeichern - in deinem Fall eben nen Methodenzeiger

[himitsu]

Delphi-Quellcode:

Array of record
  Name: String;
  Proc: Prozedure(a: irgendwas);
end;

da kannst du alles reinpacken und in einen Schleifchen die Namen prüfen

oder TIntegerDictionary TStringDictionary oder auch TAssocArray
('ner einfach "unveränderliche" Version befindet sich in himXML_Tools.pas > himXML)

[griever]

also ich hab jetzt mal stark vereinfach nen normales array genommen und an 1. stelle will den pointer der funktion schreiben nur wenn ich
array[1] := @funktion(parameter1,parameter2) schreibe kommt ne fehlermeldung :
[Pascal Error] Unit1.pas(54): E2036 Variable required
wenn ich die parameter weglasse funktioniert es nur kann die funktion dann ja nichts machen.

das mit dem array of record würde ja wieder dazuführen das ich immerwieder das array nach dem namen durchsuchen müsste ich wollte aber gleich an die stelle springen

[himitsu]

was willst du auch die Parameter da schon angeben, wo du siese doch erst später angeben wolltest?

außerdem wird bei Angabe von Parametern die Funktion ausgeführt und nicht ein Zeiger auf diese geliefert.

Delphi-Quellcode:

type TMyFunc = function(b: Byte);
  TMyArray = array of record
    name: String;
    func: TMyFunc;
  end;
var a: TMyArray;

function TestFunc(b: Byte);
begin
end;


SetLength(a, 1);
a[0].func := TestFunc;

x := a[0].func(123);

[add]

Zitat von griever:

das mit dem array of record würde ja wieder dazuführen das ich immerwieder das array nach dem namen durchsuchen müsste ich wollte aber gleich an die stelle springen

egal was du machst, irgendwer muß immer irgendeine Liste durchsuchen, ob das nun du selber machst, oder irgendeine Komponente für dich.

[griever]

Zitat von himitsu:

egal was du machst, irgendwer muß immer irgendeine Liste durchsuchen, ob das nun du selber machst, oder irgendeine Komponente für dich.

aber wenn ich nen normales array nehme und dort array[129] abfrage, werden doch nicht erst die 128 vorher überprüft ob sie = 129 sind und dann bei = 129 der wert ausgegeben oder?

[himitsu]

Die Zahl wird von Delphi direkt verrechnet, da sie ja selber den Index/Offset darstellt.

Delphi macht also aus array[129] z.B. (@array + 129*SizeOf(Element))^, aber mit einem String ist sowas nicht möglich.