ActiveDelphi

[danielrgoes]

Bom dia pessoal

Estou desenvolvendo um software para cadastrar alguns arquivos no banco
mais apenas o nome deles como String
gostaria de sabe se eh possivel e se alguem tem alguma ideia de como pegar o nome de cada aquivo dentro de uma pasta aonde tem 3000 para cadastrar no banco

muito obrigado

[rogerbetti]

creio que isso resolva

var searchResult : TSearchRec;
begin
if FindFirst('*.*', faAnyFile, searchResult) = 0 then
begin
repeat
ShowMessage('Nome do arquivo = '+searchResult.Name);
until FindNext(searchResult) <> 0;
FindClose(searchResult);
end;
end;

[aeciovc]

funciona mto bem!!

eh isso ai!!

[danielrgoes]

mais quando eu vo joga no banco ele da problema to usando o cod

modulo.CDS_clientesNOME_EMITENTE := searchResult.Name;

da imcompatibilidade pq o campo do banco eh String e esse searchResult.Name eh FileName