Exemplo n.º 1
0
        public TProfInstance CreateInstance(string AName, string AFileName)
        {
            TProfFunc     Func;
            TProfInstance Inst;

            Func = FindFunc(AName);
            if (Func == null)
            {
                Func = new TProfFunc(this, AName, AFileName);
                this.Funcs.Add(Func);
                this.Map.Add(Func.Name, Func);
            }
            Inst = Func.AddInstance();
            return(Inst);
        }