0 Members and 1 Guest are viewing this topic.
objects[add('ini='+currentCFG)]:=currentCFGhashed; o:=space.objects; ... and any more lines
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);beginend;