Mein Pseudocode geht wie folgt :
Delphi-Quellcode:
procedure complete_Process(...);
mytimer := 0;
/// hier beginnt die Zeitmessung
someInit ();
MakeSQLStr();
query.sql.add();
query.open;
myTimer.result(1)
// hier messe ich die Zeit bis zum laden der Daten in die Query
query.first;
for i := 0
to maxrecords
do
begin
proc (
query, ......);
query.next;
end;
....
myTimer.result(2);
// hier ist die Zeitmessung wie im Graphen ganz oben gezeigt
finalize
end;
die Zeit an Messpunkt1 ist gegenüber Messpunkt 2 zu vernachlässigen