Ir ao conteúdo
  • Cadastre-se

Anderson Babinski

Membro Júnior
  • Posts

    1
  • Cadastrado em

  • Última visita

Reputação

0
  1. Bom, simplesmente, não consigo entender o que está dando errado. Ocorre, que, quando era para fazer a leitura do arquivo, não faz. Sendo que o mesmo existe, e tem dados gravados nele. Alguém pode me explicar o que faço de errado? Procedimento de escrever no arquivo: // procedimento para salvar arquivo com usuario e senha em binarioprocedure TFrm_login.arq_lembrarlogin(user, pas: string);var login: Tlogin; arquivo: file of Tlogin;begin AssignFile(arquivo, 'temp_login.dat'); {$I-} Reset(arquivo); {$I+} if (IOResult <> 0) then Rewrite(arquivo); Seek(arquivo, filesize(arquivo)); with login do begin usuario:=user; senha:= pas; end; // fim with write(arquivo, login); CloseFile(arquivo);end; // fim lembrar senha, arquivo Procedimento de ler o arquivo: // inicio para procedimento de leitura de login, caso esteja marcado lembrar sebgaprocedure TFrm_login.arq_lerlogin;var login: Tlogin; arquivo: file of Tlogin;begin AssignFile(arquivo, 'temp_login.dat'); {$I-} Reset(arquivo); {$I+} //if (IOResult <> 0) then //exit; while not eof (arquivo) do begin Read(arquivo, login) end; CloseFile(arquivo); with login do begin ShowMessage(usuario); ShowMessage(senha); end; Help, please! Administrador, consegui resolver meu problema; Na verdade meu código não tinha nada de errado, eu estava errando na hora que chamava o procedimento, pois estava passando os parametros errado! Pode trancar o tópico, obg!

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...