Compile error with Delphi 2005

[dummzeuch]

Since I found no way to explicitly write a bug report, I guess it must go into a "discussion" instead:

There are two compile errors with Delphi 2005 in unit JvAppStorage. FileAge has only one parameter in Delphi 2005. The second parameter was added in Delphi 2006.

Here are the bugfixes:

function TJvCustomAppMemoryFileStorage.ReloadNeeded: Boolean;
{$IFDEF DELPHI2006_UP} // <==== was DELPHI2005_UP
var t : TDateTime;
{$ENDIF}
begin
  Result := (not FFileLoaded or AutoReload) and not IsUpdating;
  {$IFDEF DELPHI2006_UP} // <==== was DELPHI2005_UP
  if Result and FileAge(FullFileName, t) then
    Result := FFileAge <> t;
  {$ELSE}
  if Result then
    Result := FFileAge <> FileAge(FullFileName);;
  {$ENDIF}
end;

and

procedure TJvCustomAppMemoryFileStorage.Reload;
begin
  if not IsUpdating and not (csDesigning in ComponentState) then
  begin
    FFileLoaded := True;
    FPhysicalReadOnly := FileExists(FullFileName) and FileIsReadOnly(FullFileName);
    {$IFDEF DELPHI2006_UP} // <==== was DELPHI2005_UP
    FileAge(FullFileName, FFileAge);
    {$ELSE}
    FFileAge:= FileAge(FullFileName);
    {$ENDIF}

    inherited Reload;
    if FileExists(FullFileName) then
      if SynchronizeFlushReload then
        Synchronize(ReloadInternal, FullFileName)
      else
        ReloadInternal
    else // file may have disappeared. If so, clear the internal data
      ClearInternal;
  end;
end;

[ronaldhoek]

Suggested a fix for this in #215

[ronaldhoek]

NOTE: I don't have Delphi 2005/2006 so others need to test this!