zugriff auf Unterklasse

[cetinbiryoldayim]

Erstmal hallöchen,

so undzwar ich habe ein kleines Problem..

durch ein Buttonclick soll die Funktion der Steuerung ( enterRechteck() ) aufgerufen werden und diese soll dann die Funktion whereIamRechteck() der Unterklasse TRechteck aufrufen.

zuletzt sollte das Rechteck-Objekt gelöscht werden (.Destroy)



doch geht es nicht..

es meckert beim aufruf von

-> dieFigur.whereIamRechteck()

-> dieFigur.Destroy()



weiss jemand weiter? ich wäre für jegliche Hilfe dankbar



mfg

c3ytin

Delphi-Quellcode:

type

  TSteuerung = class;

  TFigur = class;



  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  strict private

    dieSteuerung: TSteuerung;

  public

    procedure whereIamGUI();

  end;



  TSteuerung = class

  strict private

    dieGUI: TForm1;

    [b]dieFigur: TFigur;[/b]

  strict protected

  public

    constructor CreateSteuerung(p_Form1: TForm1);

    procedure whereIamSteuerung();

    procedure enterRechteck();

  end;



  TFigur = class [b]abstract[/b]

  strict private

  strict protected

  public

    procedure askWhereIam();

  end;



  TRechteck = class(TFigur)

  strict private

  strict protected

[b]  public[/b]

[b]    procedure whereIamRechteck();[/b]

  end;





var

  Form1: TForm1;



implementation

{$R *.nfm}





//  ###########    ASSOZIATIONEN    ###########



procedure TForm1.FormCreate(Sender: TObject);

begin

  dieSteuerung  :=  TSteuerung.CreateSteuerung(self);

end;



constructor TSteuerung.CreateSteuerung(p_Form1: TForm1);

begin

  inherited Create;

  dieGUI  :=  p_Form1;

end;





//  ###########    METHODEN    ###########



procedure TForm1.whereIamGUI();

begin

  showmessage('GUI');

end;



procedure TSteuerung.whereIamSteuerung();

begin

  showmessage('Steuerung');

end;



procedure TRechteck.whereIamRechteck();

begin

  showmessage('Rechteck');

end;



procedure TSteuerung.enterRechteck();

begin

[b]  dieFigur  :=  TRechteck.Create();[/b]

[b]  dieFigur.whereIamRechteck();   //FEHLER: undefinierter Bezeichner[/b]

[b]  dieFigur.Destroy();         //FEHLER: undefinierter Bezeichner[/b]

end;





// ###########    BUTTONS    ############



procedure TForm1.Button1Click(Sender: TObject);

begin

  dieSteuerung.enterRechteck();

end;



end.

[mkinzler]

Delphi-Quellcode:

if dieFigur is TRechteck then
    (dieFigur as TRechteck).whereIamRechteck();

[cetinbiryoldayim]

das aufrufen der Funktion WhereIamRechteck() funktioniert auf die Art, aber .Destroy kann nicht aufgerufen werden. Was is da falsch?

und noch eine Frage:
geht das auch auf eine andere Weise? wir hatten dieses "as" nämlich noch nicht im Unterricht und mein Lehrer könnte in der Klassenarbeit deswegen was abziehen..

[mkinzler]

Versuch mal

Delphi-Quellcode:

dieFigur.Destroy;

Nenn die Methode gleich.

[DeddyH]

Wenn Ihr as nicht kennt, geht das zur Not auch so:

Delphi-Quellcode:

if dieFigur is TRechteck then
    TRechteck(dieFigur).whereIamRechteck();

[FAlter]

Hi,

wenn man vorher schon mit is geprüft hat, ob es der richtige Typ ist, kann man sich das as sparen und den Typecast nehmen, denn as stellt erst sicher, dass es sich um den angegebenen Typ führt, bevor es letztlich dasselbe macht wie der Typecast. Eine doppelte Prüfung kostet Zeit und Bytes.

Daher verwende ich nach einem is nicht "zur Not", sondern eigentlich immer einen Typecast, wohingegen ich ohne Prüfung as verwende.

[edit] Und nicht Destroy, sondern besser Free aufrufen. Für den Fall, dass es mal nil ist. Kann natürlich sein, dass das meistens genauso unsinnig ist wie as nach is, weil meist sichergestellt ist, dass das Objekt existiert... Sollte evtl. drüber nachdenken, doch öfters as zu nehmen. [/edit]

Mfg
FAlter

[cetinbiryoldayim]

ok das mit dem as/is geht klar.. danke für eure schnellen Antworten :)

aber dieFigur.Destroy geht immernoch nicht :/
meckert immer undefinierter bezeichner
woran könnte das liegen?

[DeddyH]

Und ich wollte mkinzler extra nicht in den Rücken fallen wegen der doppelten Prüfung. Na gut, ich bin' s ja nicht gewesen :mrgreen:

[edit] Ist doch dasselbe Schema:

Delphi-Quellcode:

if dieFigur is TRechteck then
  begin
    TRechteck(dieFigur).whereIamRechteck();
    TRechteck(dieFigur).Free;
  end;

[/edit]

[cetinbiryoldayim]

ok :), ich bedanke mich herzlich
schönen abend noch ;)

[mkinzler]

Ich würde trotzdem eine abstrakte Methode .WhereIAm() in der Basisklasse deklarieren und diese dann überladen