Isso pode te ajudar ...
utilizo a mascara abaixo para pesquisar arquivos da nota fiscal eletronica ,
pois tenho varios pontos de emissao de notas ..
no seu caso :
E00001João.pdf
??????João.pdf
att. Marcio
gMaskPesquisa:= '';
//42090782636911000174550010009320539884052403-nfe.xml
gMaskPesquisa := '??????' +
paEmp.CNPJ + paEmp.modNF + paEmp.SerieNF +
'????????????????' + paEmp.empcod + '?' ;
function procuraArquivos(const pastaProcura : String; Mascara : String;
const tipoArquivo:String):TstringList;
var
Mask : String;
ResultFile: Boolean;
SearchArquivo: TSearchRec;
StringList : TStringList;
begin
Result := TStringList.Create;
try
mask := pastaProcura + Mascara + tipoArquivo;
ResultFile := (FindFirst(Mask, faArchive, SearchArquivo) = 0);
try
if ResultFile then
repeat
result.add(SearchArquivo.Name);
until(FindNext(SearchArquivo) <> 0);
finally
FindClose(SearchArquivo);
end;
except
FreeAndNil(Result);
raise;
end;
end;
At 15:37 17/11/2009 -0300, you wrote:
>
>
>Caro amigos, preciso localizar uns arquivos PDFs baseado em um critério
>qualquer, filtrar os arquivos localizados e quando eu der um clique ele
>abrir o arquivo pdf.
>
>Exemplo:
>
>Numa pasta tenho n arquivos do tipo
>
>E00001João.pdf,
>
>E00002Maria.pdf,
>
>E00003João.pdf,
>
>E00001Marcos.pdf,
>
>Se eu escolher o cliente João ele deve localizar, filtrar e mostrar na tela
>os arquivos:
>
>E00001João.pdf,
>
>E00003João.pdf,
>
>Existe algum componente para isso?
>
>Preciso de uma luz!
>
>[As partes desta mensagem que não continham texto foram removidas]
>
>
[As partes desta mensagem que não continham texto foram removidas]
