Duda sobre la funcion Locate
Publicado por Eduardo Sanchez Berumen (1 intervención) el 17/02/2001 20:25:06
Tengo un problema de velocidad de tiempo ya que se tarda en visualizar mucho los datos de la tabla al darle el numero de referencia. este es el codigo que estoy utilizando:
procedure TFormQuery4.UNIQ_CUTKeyPress(Sender: TObject; var Key: Char);
begin
If Key = chr(13) then
FormMenu1.Table1.open;
If not (FormMenu1.Table1.Locate ('numero',numero.Text, [loCaseInsensitive, loPartialKey])) Then
Begin
Showmessage('The cut not exist');
numero.SetFocus;
numero.text := '';
end;
end;
end;
La pregunta es: porque se tarda mucho (10seg) en desplegar los campos de la tabla, haciendo referencia al numero??
problemas con el equipo no es porque es PentiumIII
procedure TFormQuery4.UNIQ_CUTKeyPress(Sender: TObject; var Key: Char);
begin
If Key = chr(13) then
FormMenu1.Table1.open;
If not (FormMenu1.Table1.Locate ('numero',numero.Text, [loCaseInsensitive, loPartialKey])) Then
Begin
Showmessage('The cut not exist');
numero.SetFocus;
numero.text := '';
end;
end;
end;
La pregunta es: porque se tarda mucho (10seg) en desplegar los campos de la tabla, haciendo referencia al numero??
problemas con el equipo no es porque es PentiumIII
Valora esta pregunta
0