Advertisement
Guest User

Untitled

a guest
Nov 19th, 2018
77
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.40 KB | None | 0 0
  1. type
  2.    TPersonne = class
  3.       Nom : String;
  4.       Age : Integer;
  5.       constructor Create(aNom : String; aAge : Integer);
  6.       begin
  7.          Nom := aNom;
  8.          Age := aAge;
  9.       end;
  10.    end;
  11.  
  12. var personnes : array of TPersonne;
  13.  
  14.  
  15. personnes.Add(
  16.    new TPersonne('Albert', 30),
  17.    TPersonne.Create('Beatrice', 35),
  18.    new TPersonne('Charles', 24),
  19.    new TPersonne('Djamila', 20)
  20. );
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement