Table des matières

Transtypage

Utiliser AS ou TMaClasse(xxxx)

Transtypage de la forme : TObject(MonObject)

Transtypage de la forme : (MonObject as TObject)

Exemple

var
  MyObject: TObject;
begin
  // Sans vérification
  MyObject := TObject(SomeOtherObject);
 
  // Avec vérification
  try
    MyObject := SomeOtherObject as TObject;
  except
    on E: EInvalidCast do
      ShowMessage('The object cannot be cast to TObject');
  end;
end;

Utilisation