[Aleca]

Empezado por Lenny

Estimado, no me corre intento ejecutarlo asi:


Código Delphi [-]procedure TPRODUCCIONBG.Change(Sender: TObject);
begin
while not BDATOS.TMPRIMASF.Eof do
begin
Filtro := Filtro + ' or COD_INTERNO = ' + BDATOS.TMPRIMASF;
BDATOS.MPRIMASF.Next
end;
BDATOS.TMPRIMAS.filter := Filtro;
end;




Me envia dos errores:

[DCC Error] PRODUCBG.pas(67): E2003 Undeclared identifier: 'Filtro'

[DCC Error] PRODUCBG.pas(67): E2015 Operator not applicable to this operand type

¿Que estoy haciendo mal?, gracias por la paciencia...

tenes que declarar Filtro: TString;

Código Delphi [-]
procedure TPRODUCCIONBG.Change(Sender: TObject);
var
  Filtro: String;
begin
  Filtro := '';
  while not BDATOS.TMPRIMASF.Eof do
  begin
       Filtro := Filtro + ' or COD_INTERNO = ' + chr(39) + BDATOS.PRIMASF.FieldByName('NOMBRE_CAMPO').ASstring + chr(39);
     BDATOS.MPRIMASF.Next
  end;
    BDATOS.TMPRIMAS.filter := Filtro;
  BDATOS.TMPRIMAS.Filtered := True;
end;

a ver ahora.