Hallo,

Angenommen ich habe ein Array von Prozedurnamen

markieren

Delphi-Quellcode:

var a:array[0..2] of string = ('f1', 'f2', 'f3');

procedure f1(p:pointer);
begin

end;

...

Gibt es eine einfache Möglichkeit dieses Array mit einer for-Schleife zu durchlaufen, um alle Prozeduren in einem Thread zu starten?

Ungefähr so:
for i := low(a) to high(a) do beginthread(nil, 0, @a[i], nil, 0, c);

Eine einfache Möglichkeit gibt es nicht, weil Delphi von einem String nicht auf die Adresse einer Funktion schliesen kann.
Man benötigt schon etwas mehr Aufwand als bei dynamischen Scriptsprachen.

zusammenfalten · markieren

Delphi-Quellcode:

type
  TMyFunc = procedure(p:Pointer);

  TMyFuncRec = record
    name:string;
    func:TMyFunc
  end;

const
  funclist = array[0..1] of TMyFuncRec =
((name:'f1'; func:@f1),
((name:'f2'; func:@f2));

Aber sag mal wozu brauchst du dass denn?
Willst du dir einen eigenen Threadpool bauen?

Nein.
Die Namen der Funktionen sind i.d.R. nicht mehr im Compilat enthalten. Debuginfos oder RTTI (bei Klassen) könnten da sein, aber eine schöne Lösung ist das nicht

Für so etwas würde ich eine List<TThread> (oder sowas in der Richtung) hernehmen, da wäre das dann überhaupt kein Problem...

Danke, ich werde es so wie sx2008 vorgeschlagen hat, probieren.
Nein, nicht für einen ThreadPool, ich wollte meinen Code damit nur etwas dynamischer machen.