converter FileName em String

[danielrgoes]

Boa Tarde

estou utilizando o cod para pegar o nome do arquivo

if FindFirst('c:\FD\Arquivos\*.*', faAnyFile, searchResult) = 0 then

begin

repeat

modulo.cds_clientes.Append;

//ShowMessage('Nome do arquivo = '+searchResult.Name);

modulo.CDS_clientesNOME_EMITENTE := searchResult.Name;

until FindNext(searchResult) <> 0;

FindClose(searchResult);

end;

end;

porem quando é pra exipi em tela ( pater comentada) exibi

mais na hora de salva no banco da incompatibilidade de TFileName para String

alguém tem alguma soluçao

[Micheus]

mais na hora de salva no banco da incompatibilidade de TFileName para String

danielrgoes, há duas coisas a serem comentadas:

1º) possivelmente o erro deve-se ao fato de você estar fazendo a atribuição do nome do arquivo ao campo em si (CDS_clientesNOME_EMITENTE), ao invés de fazer a atribuição ao valor deste campo (o buffer que irá para o bando de dados):

modulo.CDS_clientesNOME_EMITENTE.Value := searchResult.Name;

2º) Após a atribuição, você não está "postando" a informação no banco. Apesar de ao ser executado o novo Append, haver uma tentativa de post automático, esta não é uma boa prática. Logo, acrescente a linha modulo.CDS_clientes.Post (ou o ApplayUpdates) após a atribuição do valor.

Obs: Quando postar código, use as tags - facilita e muito a visualização do mesmo. Se tiver dúvidas como fazê-lo, veja em Destaque: Otimizando suas perguntas e respostas, do colega MLeandroJr!, como fazer isto. ;)

Abraços