Identpaf.arquivolistaautenticados.md5 Não "guarda" O Md5

[eneias.carvalho]

Não sei se alguem já passou ou está passando por essa situação, más não estou conseguindo guardar valor nessa proprioedade:

 

if (FileExists(ExtractFilePath(ParamStr(0)) + 'CONFIG.txt')) then
            begin
              try
                aac.NomeArquivoAux              :=  ExtractFilePath(ParamStr(0)) + 'CONFIG.txt';
                aac.AbrirArquivo;

                aac.IdentPAF.ArquivoListaAutenticados.Nome          :=  'listaMD5.txt';
                aac.IdentPAF.ArquivoListaAutenticados.MD5           :=  ead.MD5FromFile(ExtractFilePath(ParamStr(0)) + aac.IdentPAF.ArquivoListaAutenticados.Nome);

                executaveis                     :=  TStringList.Create;
                executaveis.LoadFromFile('lista.txt');

                aac.IdentPAF.OutrosArquivos.Clear;
                            
                for i := 0 to executaveis.Count -1 do
                begin
                  with aac.IdentPAF.OutrosArquivos.New do
                  begin
                    Nome               :=  Copy(executaveis.Strings[i], 35, 50);
                    MD5                :=  Copy(executaveis.Strings[i], 01, 32);
                  end;

                end;

                executaveis.Free;
              except
                ShowMessage(
                  'Parâmetros do sistema inválidos!' + #13 +
                  'Entre em contato com o suporte.' + #13 +
                  ' - Erro: Arquivo "CONFIG.txt" não configurado!'
                );

                Exit;
              end;
            end
            else
            begin
              ShowMessage(
                'Parâmetros do sistema inválidos!' + #13 +
                'Entre em contato com o suporte.' + #13 +
                ' - Erro: Arquivo "CONFIG.txt" não localizado!'
              );

              Exit;
            end;

 

Quando passo pelo campo ele fica com o MD5 do arquivo, más ai quando executo a identificação do PAF, o mesmo não é impresso, já debuguei e verifiquei que o valor fica vazio, o nome do arquivo permanece, porem o MD5 do arquivo não permanece.

Editado 28 Fevereiro, 2013 por eneias.carvalho

[Daniel Simoes]

O MD5 deve ser calculado a cada inicialização... Não faz sentido salvá-lo nas propriedades do Objeto...

 

Veja esse post: