rejetto forum

Software => HFS ~ HTTP File Server => Programmers corner => Topic started by: Mars on October 15, 2009, 01:55:22 PM

Title: the hfs code is not complete
Post by: Mars on October 15, 2009, 01:55:22 PM

in main.pas

Quote

 objects[add('ini='+currentCFG)]:=currentCFGhashed;
  o:=space.objects;

 ... and any more lines

BUT?

Quote

classes.pas
    property Objects[Index: Integer]: TObject read GetObject write PutObject;

function TStrings.GetObject(Index: Integer): TObject;
begin
  Result := nil;
end;

procedure TStrings.PutObject(Index: Integer; AObject: TObject);
begin
end;

I indeed have the impression that there is an unfinished work somewhere.  :D

in the build 248?  ;)

Title: Re: the hfs code is not complete
Post by: rejetto on October 15, 2009, 01:58:52 PM

Good eye Mars, but there's a fault in your thinking: that are the methods of class Tstrings.
But i'm instantiating his inheritors, and they may redefine (override) such methods.
And I guess they do. :)

Title: Re: the hfs code is not complete
Post by: Mars on October 15, 2009, 05:09:58 PM

So much for me, I have make the confusion of classes.pas with classeslib.pas :'(