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
