Registriert seit: 12. Aug 2003
Ort: Soest
4.027 Beiträge
Delphi 10.1 Berlin Enterprise
|
Re: Zeit einer SQL-Query berechnen und anzeigen
18. Jun 2004, 12:54
Delphi-Quellcode:
procedure Irgendwas;
var
R1: string;
Start, Stop, Freq: Int64;
begin
with dm_mysql do
begin
sql_artikel.close;
sql_artikel.sql.text := 'select * from artikel';
QueryPerformanceCounter(Start);
sql_artikel.open;
QueryPerformanceCounter(Stop);
QueryPerformanceFrequency(Freq);
lbl_gefunden.Caption := Format('%d insgesamt, die Abfrage dauerte %.4f sek', [sql_Artikel.RecordCount, (Stop - Start) / Freq]);
end;
end;
|