diff options
| author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-06-05 10:21:42 +0000 |
|---|---|---|
| committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-06-05 10:21:42 +0000 |
| commit | d6ed6e2b892dcbf25ce9245d2eab85bc5966fce1 (patch) | |
| tree | 3fb8c78bf0339413a7de34689d7831bda5b158c8 /packages/fcl-web/src/base/iniwebsession.pp | |
| parent | 6bbac199e3c0cfa773c3eff0ab0f2f6bb1700e4e (diff) | |
| download | fpc-d6ed6e2b892dcbf25ce9245d2eab85bc5966fce1.tar.gz | |
* Checked and resolved most hints/warnings
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@17662 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-web/src/base/iniwebsession.pp')
| -rw-r--r-- | packages/fcl-web/src/base/iniwebsession.pp | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/packages/fcl-web/src/base/iniwebsession.pp b/packages/fcl-web/src/base/iniwebsession.pp index ba3bc5b12e..8c614fbe2b 100644 --- a/packages/fcl-web/src/base/iniwebsession.pp +++ b/packages/fcl-web/src/base/iniwebsession.pp @@ -190,10 +190,11 @@ begin Repeat if (Info.Attr and faDirectory=0) then begin - Ini:=TMeminiFile.Create(SessionDir+Info.Name); + FN:=SessionDir+Info.Name; + Ini:=TMeminiFile.Create(FN); try If SessionExpired(Ini) then - DeleteSessionFile(SessionDir+Info.Name); + DeleteSessionFile(FN); finally Ini.Free; end; @@ -278,8 +279,6 @@ end; procedure TIniWebSession.InitSession(ARequest: TRequest; OnNewSession,OnExpired: TNotifyEvent); Var - L,D : TDateTime; - T : Integer; S : String; begin |