Campo clave y campo valor en un ComboBox

[ecfisa]

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:

Registros |  Tiempo
----------+--------------
 5000     |   426225 µs
10000     |   869611 µs
15000     |  1311832 µs
20000     |  1826615 µs
25000     |  2220191 µs
30000     |  2634683 µs

Saludos