Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
procedure TfmPrinc.Button2Click(Sender: TObject);
var
 T : TObject;
begin
  T := TList.Create;
  ShowMessage('Test est de classe ' +T.ClassName);
  T.Destroy;
 
end;
Comment on a pu créer la var "T" en tant que Liste(Tliste) alors qu'elle est déclarée comme Tobjet ?