delphi开发的程序，就像文本框能不能有记忆功能呀。。。。。

Question

INI，注册表，记录文件都可以，把密码再进行加密处理

Answer 1

INI，注册表，记录文件都可以，把密码再进行加密处理

Answer 2

密码可以使用加密函数进行处理。例如如下加密函数
uses Hash,Cipher,DECUtil;function HashEncode(EnText:String):String;
function HashDecode(EnText:String):String;function HashEncode(EnText:String):String;
begin
   Result:='';
   with TCipher_Blowfish.Create('David', nil) do
   begin
      try
        Result := CodeString(EnText, paEncode, 16);
      finally
        Free;
      end;
   end;
end;function HashDecode(EnText:String):String;
begin
   Result:='';
   with TCipher_Blowfish.Create('David', nil) do
   begin
      try
        Result := CodeString(EnText, paDecode, 16);
      finally
        Free;
      end;
   end;
end;

Answer 3

加密后，写入注册表，
var
  reg;tregistry;
begin
      reg:=tregistry.create;
      try
          reg.rootkey:=...
          reg.open('username',usesname,true);
          reg.opne('password',passwore,true);
      finally
          fre.closekey;
          reg.free;
      endend;

Answer 4

var//全局变量
username:string;
password:string;
var  //formCreate;
  userreg:Tregistry;
begin
  userreg:=Tregistry.create;
  UserReg.RootKey:=HKEY_LOCAL_MACHINE;
    if UserReg.OpenKey('\software\Users',true) then
    begin
      if UserReg.ValueExists('username') then
      begin
        username:=UserReg.ReadInteger('username');
        password:=UserReg.REadInteger('password')  
      end;
    end;
end;
var//formClose
var
  UserReg:TRegistry;
begin
  UserReg:=TRegistry.Create;
  try
    UserReg.RootKey:=HKEY_LOCAL_MACHINE;
    if UserReg.OpenKey('\software\user',false) then
    begin
      UserReg.WriteInteger('Username',username);
      UserReg.WriteInteger('password',password);
    end;
  finally
    UserReg.CloseKey;
    UserReg.Free;
  end;
end;