rejetto forum
Software => HFS ~ HTTP File Server => Programmers corner => Topic started by: Mars on October 15, 2009, 01:55:22 PM
-
in main.pas
objects[add('ini='+currentCFG)]:=currentCFGhashed;
o:=space.objects;
... and any more lines
BUT?
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? ;)
-
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. :)
-
So much for me, I have make the confusion of classes.pas with classeslib.pas :'(