Dejar de visualizar un registro de un DBGrid...

[eddg]

muy bueno, sin embargo, mi base de datos es de mas de 1500 registros y cuando mando a ejecutar el programa, este tarda mucho y no abre!

[[maeyanes]]

Bueno... ese si es un problema...

Una solución es después de la línea ListBox1.Items.Add(...) agregues Application.ProccessMessages...

Ahora... pensándolo bien, puedes, usando el TDBGrid hacer lo que deseas...

Aquí tendrías que jugar con el evento OnFilterRecord y la propiedad Filtered del TADOTable...

Algo como:

Código Delphi [-]
procedure TForm1.ADOTable1.OnFilterRecord(DataSet: TDataSet; var Accept: Boolean);
var
  
begin
  // Si el valor del campo Nombre no existe en el ListBox, se muestra en el Grid...
  Accept := ListBox1.Items.IndexOf[ADOTable1.FieldByName('Nombre').AsString) = -1
end;

Saludos...

[eddg]

hago lo que me dices!

procedure Tcomponentes.ADOTableFilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept := ListBox1.Items.IndexOf[ADOTable.FieldByName('Nombre iupac').AsString) = -1
end;


sin embargo, al ejecutar y tratar de compilar, aparece el siguiente error:

[Error] Unit11.pas(142): Not enough actual parameters
[Error] Unit11.pas(142): Array type required
[Fatal Error] Project2.dpr(20): Could not compile used unit 'Unit11.pas'

[eddg]

acomode un poco el codigo, y quedo asi:

procedure Tcomponentes.ADOTableFilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept := ListBox1.Items.IndexOf(ADOTable.FieldByName('Nombre iupac').AsString) = -1;
end;


Ahora ejecuta pero sigue sin Dejar de Visualizar el registro en el DBGrid que agregue en el ListBox.

que será?

[[maeyanes]]

Bueno, hay un error en el código de ejemplo que te di, y está en:

Código Delphi [-]
  ListBox1.Items.IndexOf[ADOTable.FieldByName('Nombre iupac').AsString] = -1

Puse un paréntesis ()) y debería ser una llave (])... error de dedo xDDD


Por cierto, recuerda que estos foros cuentan con las etiquetas Delphi para publicar código fuente en Delphi...


Saludos...

[eddg]

Bueno, lo coloco como tu dices, pero me da un error.

ListBox1.Items.IndexOf[ADOTable.FieldByName('Nombre iupac').AsString] = -1

[Error] Unit11.pas(142): Not enough actual parameters
[Error] Unit11.pas(142): Array type required
[Warning] Unit11.pas(144): Comparing signed and unsigned types - widened both operands
[Fatal Error] Project2.dpr(20): Could not compile used unit 'Unit11.pas'

y el cursor se ubica justo donde esta el primer corchete, entonces, lo arreglo y en vez de corchete le coloco
parentesis y queda asi;
accept:= ListBox1.Items.IndexOf(ADOTable.FieldByName('Nombre iupac').AsString) = -1

Ahora sí ejecuta, pero Igual, no hace nada con los registros del DBGrid!

[[maeyanes]]

Ah!! Cierto... otro error... jaja... eso de hacer las cosas de memoria xDDDD

IndexOf es un método, no una propiedad de tipo array... jejeje

Bueno... recuerdas que te mencioné de la propiedad Filtered?, pues en alguna parte de tu código, debes ponerla a True para que la tabla filtre los registros...


Saludos...

[eddg]

ya coloque la ADOTable.filtered=true

pero igual, no ocurre nada! No me quita el registro del DBGrid...

Queria hacerte una preguntita, aparte, como hago para filtrar un texto que introduzca por un edit en el DBGRID????

tenia este codigo:

procedure Tcomponentes.Edit1Change(Sender: TObject);
begin
If (Edit1.text <> '') then
adotable.Filter:= 'nombre iupac'''+ Edit1.Text + ' ''';
end;

sin embargo, cuando Cambie la opcion ADOTable.filtered a true, me da un error! apenas al escribir en el EDIT... aunque nunca me funciono para filtrar ese algoritmo, pero al menos me dejaba escribir en el edit!!! tu que crees que pueda estar pasando?