Cita:
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:
Código:
[DCC Error] PRODUCBG.pas(67): E2003 Undeclared identifier: 'Filtro'
Código:
[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.