特此校正,上面的函数参数
Password应该改一下。:),刚才没注意,参数同名了,呵呵,你要解密一个密码,这样调用,首先从ini文件里面读到加密过的密码,然后把它作为Password传到加密函数就可以了
如下:
begin
with
TIniFile.Create('C:\Temp.ini')
do
try
if
Edit1.Text
<>
Encrypt(ReadString('User',
'Password',
''))
then
ShowMessage('你的密嘛输入不正确,请重新输入')
else
ShowMessage('验证通过');
finally
Free;
end;