Erro ao escrever em um arquivo .psw

[NewTroy 0]

olá, eu estava criando um programa que guardasse uma senha criptografada, porém quando eu escrevo essa senha o programa exibe a mensagem:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

e depois trava, eu sei que o erro é na linha de ReWrite(F); olha o source:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

e tmb dá um erro ao carrega e salvar essa senha:

 

FileSetAttr('C:\Senha.psw', 0);

AssignFile(F, 'C:\Senha.psw');

ReWrite(F);

Write(F, Memo1.Text);

Closefile(F);

Memo1.Lines.LoadFromFile('C:\Senha.psw');

FileSetAttr('C:\Senha.psw', 7);

[Owner 8]

Porque vc nao coloca extensão em txt ou ini !

É bem mais fácil e não vai ter erro.

[Ryokusei 28]

Usei exatamente esse code:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

E não tive nenhum erro, conferi o arquivo e os atributos e tá tudo em ordem. Talvez o erro seja decorrente de outra parte do seu code.

[NewTroy 0]

Resolví fazer o q o Owner ' falou (usar extensões de arquivos tais como .txt ou .ini), mas tmb não deu certo:

 

o erro continua no ReWrite(F);

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

se eu apagar o ReWrite(F); ele diz q agora o erro é no Write(F, Memo1.Text);

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

Código inteiro:

 

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

alguém sabe o porquê desses erros?

[Ryokusei 28]

Tente usar uma var do tipo TStringList e usar o método SaveToFile dela, é muito mais fácil.

[NewTroy 0]

o problema não é salvar, mas sim modificar (escrever, apagar) um arquivo .txt

[SlackTrack 0]

Talvez delimitando as ações com sleep(); pode ajudar.