die aktuelle Version vom code sieht wie folgt aus
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
copy_data_to_generic_objectlist
query.next;
end;
myTimer.result(2);
// hier ist die Zeitmessung nach Ende alle DB arbeiten
for I := 0
to generic_objectlist
do
begin
data :=generic_objectlist.items[i];
proc ( data, .....);
end;
myTimer.result(3);
// hier ist die Zeitmessung wie im Graphen ganz oben gezeigt
finalize
end;
95 % der Zeit benötigt die Schleife proc(data ,,, ) , d.h. ich werde dem Ansatz von SIR RUFO folgen ....