I suspect that procedure TInhertProducts.SetMyList(const Value: TStrings); begin FMyList := Value; end;
Should be procedure TInhertProducts.SetMyList(const Value: TStrings); begin FMyList.assign(Value); end; Regards Sean ------------------------- Sean Cross CRM 06 835 5868 021 270 3466 > -----Original Message----- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On Behalf Of Robert Pointon > Sent: Thursday, 8 September 2005 10:37 p.m. > To: [email protected] > Subject: TStrings in a class > > I am trying to create a class that has a tstring list fill > internally holding a list of names but I get access errors > every time I try to add to the list. > > This is the class code the idea is a value will be passed an > the list will be filled accordingly; > > calling with mlist.MyList:= memo1.Lines; works fine. > calling with Mlist.Mynum := 99; Access error. > > <code> > unit co_InheritProduct; > > interface > uses classes, sysutils; > type TInhertProducts = Class(TObject) > private > FMyList: TStrings; > FMynum: integer; > constructor create; > procedure SetMyList(const Value: TStrings); > procedure Filllist; > procedure SetMynum(const Value: > integer); > public > property MyList : TStrings read FMyList write > SetMyList; > property Mynum : integer read FMynum write SetMynum; > end; > > implementation > > > > { TInhertProducts } > > constructor TInhertProducts.create(); > begin > inherited ; > // Tstringlist NOT TStrings > FMyList := TStringlist.Create; > end; > > > procedure TInhertProducts.Filllist; > var > i : integer; > begin > for i := 1 to 10 do begin > FMyList.Add(IntToStr(i)); > end; > end; > > procedure TInhertProducts.SetMyList(const Value: TStrings); begin > FMyList := Value; > end; > > procedure TInhertProducts.SetMynum(const Value: integer); begin > FMynum := Value; > Filllist; > end; > > end. > > </code> > > _______________________________________________ > Delphi mailing list -> [email protected] > http://www.elists.org/mailman/listinfo/delphi > > _______________________________________________ Delphi mailing list -> [email protected] http://www.elists.org/mailman/listinfo/delphi
