instanciation ou cast a partir du classname

Question

salut
alors voila ce que je voudrai faire:
j'ai une classe Tancetre, et 2 classes Tfils1, Tfils2
et 3 procedure
mafonction(val:Tancetre)

mafonction(val:Tfils1)

mafonction(val:Tfils2)


la fonction qui est appel&#233;e est toujours la premier (Tancetre)
le probleme, c que je voudrai faire appel a une correspondant au vrai type du parametre.
donc j'aurai besoin d'une methode permettant de caster val grace a son classname, sans avoir a faire 
if val.classname = Tfils1 then mafonction(Tfils1(val));
if val.classname = Tfils2 then mafonction(Tfils2(val));

merci de votre aide

cs_neko · Answer

Il te suffit de mettre "Overload;" &#224; la fin du prototype de ta fonction. delphi fera la selection de la "bonne" fonction a utiliser seul.

Procedure maFonction(A: Tancetre); Overload;
Procedure maFonction(A: TF1); Overload;
Procedure maFonction(A: TF2); Overload;

var
    Form1: TForm1;

implementation

{$R *.dfm}

Procedure maFonction(A: Tancetre);
Begin
    ShowMessage('A');
End;
Procedure maFonction(A: TF1);
Begin
    ShowMessage('F1');
End;
Procedure maFonction(A: TF2);
Begin
    ShowMessage('F2');
End;

procedure TForm1.FormCreate(Sender: TObject);
Var
    a: TAncetre;
    f1: TF1;
    f2: Tf2;
begin
    a:=TAncetre.Create;
    f1:=Tf1.Create;
    f2:=Tf2.Create;

    maFonction(A);
    maFonction(f1);
    maFonction(f2);
end;

Pour info il faut &#233;viter les choses du style if val.classname = Tfils1 then si tu veux tester le type d'un objet utilise de pr&#233;f&#233;rence l'op&#233;rateur is : if val is Tfils1 Then...

Guillemouze · Answer

heu c pas tout a fait ca. en fait, g un objet (Tfils1 ou Tfils2) que je passe en tant que Tancetre.

Procedure maFonction(A: Tancetre); Overload;
Procedure maFonction(A: TF1); Overload;
Procedure maFonction(A: TF2); Overload;

var
    Form1: TForm1;

implementation

{$R *.dfm}

Procedure maFonction(A: Tancetre);
Begin
    ShowMessage('A');
End;
Procedure maFonction(A: TF1);
Begin
    ShowMessage('F1');
End;
Procedure maFonction(A: TF2);
Begin
    ShowMessage('F2');
End;

procedure TForm1.FormCreate(Sender: TObject);
Var
    f1, f2: TAncetre;
begin
    f1:=Tf1.Create;
    f2:=Tf2.Create;

    maFonction(f1);//la je veu qu'il appele mafonction(Tf1)
    maFonction(f2);//et pas mafonction(Tancetre)
end;

cs_Delphiprog · Answer

En utilisant les avantages du polymorphisme, tu n'es pas oblig&#233; de d&#233;clarer autant de fonctions que de types d'objet &#224; passer en param&#232;tre.

Pour cela, au niveau de la classe TAncetre, d&#233;clare les m&#233;thodes que tu appelleras en les sp&#233;cifiant comme virtuelles :

unit Unit2;

interface

uses
  Dialogs;
  
type
  TAncetre =  class
  public
     procedure  Hello;virtual; //important !
  end;

  TFils1  = class(TAncetre)
  public
    procedure Hello;override; //puis surcharge les m&#233;thodes des descendants
  end;

  TFils2 =   class (TAncetre)
  public
    procedure Hello;override;
  end;

implementation

{ TAncetre }

procedure TAncetre.Hello;
begin
  ShowMessage('T''as le bonjour de ' + ClassName);
end;

{ TFils1 }

procedure TFils1.Hello;
begin
  ShowMessage('T''as le bonjour de ' + ClassName + ', fils de ' + ClassParent.ClassName);
end;

{ TFils2 }

procedure TFils2.Hello;
begin
  ShowMessage('T''as le bonjour de ' + ClassName + ', fils de ' + ClassParent.ClassName);
end;

end.

Au niveau de l'utilisation de ces classes, tu ne d&#233;clares qu'une fonction acceptant un TAncetre en argument :

procedure SayHello(AClass: TAncetre);
begin
  AClass.Hello;
end;

Puis, les appels se font comme de si rien &#233;tait :

procedure TForm1.Button1Click(Sender: TObject);
var
  Ancetre: TAncetre;
  Fils1: TFils1;
  Fils2: TFils2;
begin
  Ancetre : = Tancetre.Create;
  SayHello(Ancetre);
  Ancetre.Free;

  Fils1 :=  TFils1.Create;
  SayHello(Fils1);
  Fils1.Free;

  Fils2 := TFils2.Create;
  SayHello(Fils2);
  Fils2.Free;
 end ;

Du fait que la m&#233;thode dans la classe de base a &#233;t&#233; d&#233;clar&#233;e virtuelle, ce seront les m&#233;thodes des types r&#233;els &#224; l'ex&#233;cution qui seront appel&#233;es.

May Delphi be with you !

<HR color =#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

Instanciation ou cast a partir du classname

3 réponses

Votre réponse

Discussions similaires