请教Delphi里面boolean初始化的值
我是JAVA程序员，对delphi完全不懂，最近有个古老的project用delphi写的，出了个问题。我追查源代码，发现有个地方实在看不懂，想求教。由于要求源代码保密，我只能提供部分函数代码，忘理解。
function ShowLogonDialog(var Privilege: Privilegs; var LastUserName: AnsiString): Boolean;var Expired: Boolean; //这里Expired声明为boolean类型begin SecLogonDialog := LogonDialog.Create(nil); with SecLogonDialog do try Result := (TransparentBackgroundForm.ShowSystemModal(SecLogonDialog) = mrOk); if Result then Privilege := UserPrivilege(Expired) //这里没有赋值就直接使用了Expired else Privilege := eopsNone; if Privilege <> eopsNone then LastUserName := UserName; finally FreeAndNil(SecLogonDialog); end;end;
function LogonDialog.UserPrivilege(var Expired: Boolean): Privilegs;begin Result := IniFileStorage.UserPrivilege(UserNameEdit.Text, PasswordEdit.Text, Expired); if Expired then // 如果Expired为True的话，就提示Account has expired PxLOG.JclLogFmt(PXLC_INF, 'Account has expired.') else if Result = eopsNone then PxLOG.JclLogFmt(PXLC_ERR, 'Invalid logon.');end;
