Ich würde gerne eine Prozedur schreiben zum Messen der Laufzeit einer belibigen Prozedur oder Funktion. Beim Aufruf der Prozedur soll dann die Prozedur/Funktion übergeben werden. So hatte ich angefangen, das funktioniert aber noch nicht:
Delphi-Quellcode:
program zeit;
type
proc = procedure;
procedure beispiel;
begin
// mache irgendwas
end;
procedure laufzeit(p: proc);
begin
// messe laufzeit
p;
// messe laufzeit
// gib laufzeit aus
end;
begin
laufzeit(beispiel);
end.