Hola gdIrinfo.
Cita:
Empezado por gdlrinfo
Hola muchachos recuerdo cuando me dieron una mano con esto ahora tengo una duda asi como se excluyen se pude hacer que en vez de excluir incluya ? gracias como siempre !!!
|
Solo hay que cambiar la condición de retorno:
Código Delphi
[-]
...
function TCopyAllFiles.IsBeCopied(FileName: string): Boolean;
var
i: Integer;
Name: string;
begin
Result := False;
if FExclude.Count > 0 then
Name := UpperCase(ChangeFileExt(ExtractFileName(FileName), ''));
for i := 0 to FExclude.Count-1 do
if AnsiPos(UpperCase(FExclude[i]), Name) <> 0 then
begin
Result := True;
Exit;
end;
end;
...
Saludos