home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 September / Chip_2002-09_cd1.bin / zkuste / delphi / kolekce / d56 / XMLCOMP.ZIP / test / model / DnTestModel.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2002-06-16  |  957 b   |  48 lines
  1. unit DnTestModel;
  2.  
  3. interface
  4.  
  5. uses
  6.   Classes, DnPerson, DnCountry;
  7.  
  8. type
  9.   TDnTestModel = class(TComponent)
  10.   private
  11.     FCountries: TCountryList;
  12.     FPersons: TPersonList;
  13.   public
  14.     constructor Create(aOwner: TComponent); override;
  15.     destructor Destroy; override;
  16.     function AddCountry(aCountryName: string): TCountry;
  17.   published
  18.     property Persons: TPersonList read FPersons;
  19.     property Countries: TCountryList read FCountries;
  20.   end;
  21.  
  22. implementation
  23.  
  24. { TDnTestModel }
  25.  
  26. function TDnTestModel.AddCountry(aCountryName: string): TCountry;
  27. begin
  28.   result := TCountry.Create(Self);
  29.   result.CountryName := aCountryName;
  30.   Countries.Add(result);
  31. end;
  32.  
  33. constructor TDnTestModel.Create(aOwner: TComponent);
  34. begin
  35.   inherited;
  36.   FCountries := TCountryList.Create;
  37.   FPersons := TPersonList.Create;
  38. end;
  39.  
  40. destructor TDnTestModel.Destroy;
  41. begin
  42.   FCountries.Free;
  43.   FPersons.Free;
  44.   inherited;
  45. end;
  46.  
  47. end.
  48.