Guest User

def new cl

a guest
Oct 22nd, 2013
95
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. type
  2.   TOsoba = class(TObject)
  3.   private
  4.     Fid: integer;
  5.     Fimie: string;
  6.     Fnazwisko: string;
  7.     FidStopnia: integer;
  8.  
  9.   public
  10.     ListaZadanZaMiesiac:TZadanieList;
  11.     constructor Create(Aid: integer; Aimie: string; Anazwisko: string;
  12.       AidStopnia: integer); overload;
  13.     constructor Create(); overload;
  14.     destructor Destroy; override;
  15.     property id: integer read Fid write Fid;
  16.     property Imie: string read Fimie write Fimie;
  17.     property Nazwisko: string read Fnazwisko write Fnazwisko;
  18.     property idStopnia: integer read FidStopnia write FidStopnia;
  19.   end;
  20.  
  21. type
  22.   TOsobaList = class(TObjectList)
  23.   private
  24.     function GetItem(AIndex: integer): TOsoba;
  25.     procedure SetItem(AIndex: integer; const Value: TOsoba);
  26.   public
  27.     constructor Create(AWlascicielObiektow: Boolean);
  28.     destructor Destroy; override;
  29.     property Items[AIndex: integer]: TOsoba read GetItem write SetItem; default;
  30.     function Add(AOsoba: TOsoba): integer;
  31.     function FindItem(NazwiskoImie: string): integer;
  32.   end;
RAW Paste Data