Examples

Top  Previous  Next

Some examples:

 

// Obtain the required password asking it to the final user.

procedure MyPasswordRequest(EurekaExceptionRecord: TEurekaExceptionRecord; var Password: String);

begin

   InputQuery('Request''Insert the BUG report password', Password);

end;

 

 

// Obtain the required password by configuration INI file.

procedure MyPasswordRequest(EurekaExceptionRecord: TEurekaExceptionRecord; var Password: String);

var

   INI: TIniFile;

begin

   INI := TiniFile.Create('Config.ini');

   try

     Password := INI.ReadString('Main''Password''');

   finally

     INI.Free;

   end;

end;