Zeit einer SQL-Query berechnen und anzeigen

[Seven]

Hallo zusammen,

kann mir jemand sagen, wie ich mir die benötigte Zeit einer Query anzeigen lassen kann?

die Anzahl der gefunden Treffer kann ich anzeigen lassen, ich würde jetzt gerne noch die zeit sehen

hier mein momentaner Quellcode:

Delphi-Quellcode:

with dm_mysql do
  begin
    sql_artikel.close;
    sql_artikel.sql.text := 'select * from artikel';
    sql_artikel.open;
    lbl_gefunden.Caption := IntToStr(sql_Artikel.RecordCount);
  end

über Hilfe wäre ich sehr dankbar. Ich hoffe ich habe mich halbwegs verständlich ausdrücken können.

Es soll im Grunde genommen wie bei phpMyAdmin nach einer SQL-Abfrage aussehen
50 insgesamt, die Abfrage dauerte 0.0004 sek

[Stevie]

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;

[Seven]

Danke Stevie,

klappt wunderbar