Beispiel für Polymorphie gesucht

[choose]

Jammer... Die 1440 Minuten sind um und nun werden die offensichtlichen Folgen meiner Konzentrationsschwierigkeiten, bedingt duch eine ungemütliche Erkältung, bis zum Ende der Welt verspottet werden...

Ich denke, Du weißt wie's gemeint war, Luckie, und ich bin überzeugt davon, dass Du, solltest Du das Beispiel tatsächlich für Dein Tutorial verwenden, etwaige Unstimmigkeiten bis zur Veröffentlichung beheben kannst ;)

[Luckie]

Jupp, läuft schon, gedae implementiert:

Delphi-Quellcode:

function TLemon.GetTaste: String;
begin
  result := 'sauer';
end;

procedure TLemon.Squeeze;
begin
  ShowMessage('Von Hand ausdrücken.');
end;

function TGrapefruit.GetTaste: String;
begin
  result := 'süß';
end;

procedure TGrapefruit.Squeeze;
begin
  ShowMessage('Mit der Maschine ausdrücken.');
end;

function TBanana.GetTaste: String;
begin
  result := 'fruchtig';
end;

Das ShowMessage in den Prozeduren ist Absicht. Funktionen wären logischerweise geeigneter, aber man soll ja sehen, dass es auch mit Prozeduren geht. Jetzt muss ich mir nur noch einBeispiel zur Verwendung dafür ausdenken und irgendwo is und as unterbringen. :gruebel: Hat da jemand spontan einenen Geistesblitz?

[Luckie]

@choose: Ich will ja nicht nerven, aber

Delphi-Quellcode:

type 
  myFruit: TFruit; 
begin 
  myFruit:= TBanana.Create; 
  myFruit.GetTaste;

sollte das type nicht besser ein var sein? :mrgreen:

War wohl nicht dein Tag. :?

[choose]

Es beeindruckt mich zwar, dass doch einige Personen meine Beiträge etwas intensiver betrachten zu scheinen, aber vielleicht sollte ich für diese Woche erst einmal aufhören zu posten, sonst blamiere ich mich noch vollends :oops:

[Motzi]

Wegen dem is.. eine klassischer Einsatzfall ist es in einem Event-Handler den Parameter Sender per is auf eine bestimmte Klasse zu testen.. aber wie kann man das am besten in einem leicht verständlichen Beispiel verpacken..? :?

Nur eins bitte - bau nicht so einen Mischmasch aus is und as zusammen wie in viele verwenden:

Delphi-Quellcode:

if Sender is TButton then
  with Sender as TButton do

oder sowas in der Art.. as prüft ja intern nochmal per is ob der Cast korrekt ist und löst gegebenenfalls eine Exception aus.. ein Kombination wie oben per is und as wäre also "doppelt gemoppelt"..

[Luckie]

Habe schon was:

Delphi-Quellcode:

uses
  Fruits;

procedure TForm1.Button1Click(Sender: TObject);
var
  MyFruit: TFruit;
  idx: Integer;
begin
  idx := RadioGroup1.ItemIndex;
  case idx of
    0: MyFruit := TLemon.Create;
    1: MyFruit := TGrapefruit.Create;
    2: MyFruit := TBanana.Create;
  end;
  if Assigned(MyFruit) then
  begin
    try
      if MyFruit is TCitrusFruit then
        (MyFruit as TCitrusFruit).Squeeze
      else
        ShowMessage('Keine Zitrusfrucht.');
    finally
      FreeAndNil(MyFruit);
    end;
  end;
end;

Banane kann man nicht ausdrücken. ;)

@choose: Ich hoffe mal, dass du an dem Tag keine Final für den Kunden zur Auslieferung fertig gemacht hast. :zwinker:

[Treffnix]

Jetzt hack doch nicht so auf dem armen choose rum, Luckie! :warn:

Bist doch Mod. Bügel doch eben die Fehler aus, bevor er vor lauter Scham unter falschem Namen nach Timbuktu gezogen ist. Du siehst doch, dass er leidet :spin2:

Dafür hatter ja auch immerhin ein is - as Beispiel in seinem ersten post... :chat:

[Motzi]

Zitat:

Zitat von Luckie

Delphi-Quellcode:

      if MyFruit is TCitrusFruit then
        (MyFruit as TCitrusFruit).Squeeze

Genau sowas hab ich gemeint sollst du vermeiden..! :? :roll:

[Luckie]

Wie würdest du es besser machen?

[APP]

Hallo Luckie,
ich denke Motzi meint

Delphi-Quellcode:

WITH (MyFruit AS TCitrusFruit) DO
   BEGIN
      Squeeze
      ...