Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#14

Re: Geschwindigkeit beim auslesen verbessern

  Alt 9. Feb 2005, 12:21
Kleine Optimierungen:
Delphi-Quellcode:
  c:=0;
  dataexist:=false;
// DM.ZQ.SQL.Clear; <== ist überflüssig wenn Zuweisung auf SQL.Text folgt
  DM.ZQ.SQL.Text := 'SELECT * FROM ASSET_DATA WHERE ASSET_id = ' + IntToStr (caid);
  DM.ZQ.Open;
// DM.ZQ.First; <== ist überflüssig, da nach Open die Datenmenge immer auf dem 1. Record steht
  if DM.ZQ.IsEmpty then // <== Prüfung mit IsEmpty ist am "saubersten"
     Exit; // keine Daten gefunden
Andreas
  Mit Zitat antworten Zitat