Cita:
Empezado por santiago14
Yo la verdad que no creo, pero... żAlguien a hecho esa medición?
|
Hola santiago14.
La verdad es que no, por que no utilizo esa solución. Pero no nos vamos a quedar con la duda...
Código Delphi
[-]
function LoadComboBox(QY: TIBQuery; CB: TComboBox): string;
var
freq, start, stop: Int64;
i: Integer;
begin
QY.Close;
QY.SQL.Text := 'SELECT ID, NOMBRE FROM PACIENTES';
QY.DisableControls;
QueryPerformanceFrequency(freq);
QueryPerformanceCounter(start);
QY.Open;
while not QY.Eof do
begin
CB.AddItem(QY.FieldByName('NOMBRE').AsString,
TObject(QY.FieldByName('ID').AsInteger));
QY.Next;
end;
QueryPerformanceCounter(stop);
Result := FormatFloat('0,', (stop - start) * 1000000 div freq) + ' µs.';
QY.EnableControls;
end;
Resultados:
Código:
Registros | Tiempo
----------+--------------
5000 | 426225 µs
10000 | 869611 µs
15000 | 1311832 µs
20000 | 1826615 µs
25000 | 2220191 µs
30000 | 2634683 µs
Saludos