Fórum Uma dúvida com D7 e D2007 #346330

var tempo : TTime; i : integer; sql : string; begin Button2.Enabled := False; tempo := now; i := 1; sql := ´Select epempsis, epmatricula, epdata, eptipo, epautoinc ´ + ´From EntrPont ´ + ´Where epempsis = :emp and epmatricula = :mat ´ + ´and eptipo = :tipo and epautoinc = :auto´; for i := 1 to 10000 do begin SQLQuery1.Close; SQLQuery1.Sql.Text := sql; SQLQuery1.ParamByName(´emp´).AsInteger := 1; SQLQuery1.ParamByName(´mat´).AsInteger := 222; SQLQuery1.ParamByName(´tipo´).AsString := ´A´; SQLQuery1.ParamByName(´auto´).AsInteger := 0; SQLQuery1.Active := True; end; Label1.Caption := ´Tempo Gasto: ´ + FormatDateTime(´HH:MM:SS´, now-tempo); Button2.Enabled := True; end;