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!