OOP--> Constructor richtig verwendet???

[Christian18]

Hallo,

ich bin gerade dabei mich so richtig intensiv mit OOP und Delphi zu beschäftigen. Ich habe mal versucht eine Klasse TNavi zu erzeugen. Die Klasse ist eine eigenständige klasse und wird nicht von einer anderen abgeleitet (vererbt)

dann habe ich noch einen constructor und eine Methode die einen button erzeugt. das funktioniert auch alles. meine frage ist jetzt nur, ob ich den construktor richtig verwendet habe??? ob ich seine eigentlich funktion richtig verwendet habe. Könnt ihr euch mal meinen code anschauen??? Für anregungen bin ich immer offen.

Hier mein Code:

Delphi-Quellcode:

unit UMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UKlassen;

type
  TFMain = class(TForm)
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  FMain: TFMain;

implementation

{$R *.dfm}

procedure TFMain.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if shift=[] then begin
    case key of
      27 : Close;
    end;
  end;
end;

procedure TFMain.FormCreate(Sender: TObject);
  var n : TNavi;  // Menu
begin
  // Menu erzeugen
  n:=TNavi.Create(FMain, 'Button');
end;

end.

und hier die unit wo die klasse drinn ist.

Delphi-Quellcode:

unit UKlassen;

interface

uses
  Forms, StdCtrls;

type
  TNavi = class
    constructor Create(f : TForm; c : String);
    procedure Menu();
  private
    form : TForm;
    button : TButton;
    caption : String;
  public

  end;

implementation

constructor TNavi.Create(f : TForm; c : String);
begin
  form:=f;
  caption:=c;
  Menu();
end;

procedure TNavi.Menu();
begin
  button:=TButton.Create(nil);
  button.Caption:=caption;
  button.Top:=10;
  button.Left:=10;
  button.Parent:=form;
end;

end.

[Waldteufel]

Hi.

Sieht ganz gut aus, aber im Konstruktor musst du am Anfang noch

Delphi-Quellcode:

inherited;

schreiben, damit der Konstruktor von TObject aufgerufen wird. Ohne den gehts nicht.

[malo]

Du musst den Button und die Klasse noch zerstören, wenn du fertig bist ;) Das hast du vergessen.

[Christian18]

Zitat:

Zitat von malo

Du musst den Button und die Klasse noch zerstören, wenn du fertig bist ;) Das hast du vergessen.

so ???

Delphi-Quellcode:

procedure TNavi.Menu(); 
begin 
  button:=TButton.Create(nil); 
  button.Caption:=caption; 
  button.Top:=10; 
  button.Left:=10; 
  button.Parent:=form; 
  button.Free;
end;

wenn ich es so mache, dann wird der button nicht angezeigt.

[Christian18]

Zitat:

Zitat von Waldteufel

Hi.

Sieht ganz gut aus, aber im Konstruktor musst du am Anfang noch

Delphi-Quellcode:

inherited;

schreiben, damit der Konstruktor von TObject aufgerufen wird. Ohne den gehts nicht.

Hallo Waldteufel,

es funktioniert aber auch ohne inherited; ich kann keinen unterschied feststellen. also mit oder ohne --> kein unterschied.

mfg christian18

[jbg]

Zitat:

Zitat von Christian18

es funktioniert aber auch ohne inherited;

Aber auch nur, weil du implizit von TObject erbst und der TObject-Konstruktor leer ist. Unter .NET würde dir der Compiler einen Fehler ausgeben, weil er ein inherited benötigt.
Ich schreibe immer das inherited beim Konstruktor und Destruktor hin. Denn wenn ich oder ein Kollege mal die Basisklasse ändern sollte und dort z.B. einen eigene Konstruktor implementiert, ist man ganz schön auf der Suche nach dem Fehler.

[Christian18]

Was hat das mit den Constructor überhaupt für einen Sinn??? man kann es doch auch so machen.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Unit2;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
  var n : TNavi;
begin
  n:=TNavi.Create();
  n.Erzeugen(Form1, 'Button');
  n.Free;
end;

end.

KLassen Unit:

Delphi-Quellcode:

unit Unit2;

interface

uses
  Forms, StdCtrls;

type
  TNavi = class
    procedure Erzeugen(f : TForm; c : String);
  private
    b : TButton;
  public

  end;

implementation

procedure TNavi.Erzeugen(f : TForm; c : String);
begin
  b:=TButton.Create(nil);
  b.Caption:=c;
  b.Top:=10;
  b.Left:=10;
  b.Parent:=f;
end;

end.

so funktioniert es auch und mache auch das gleiche. welche lösung ist besser??? warum???

[jbg]

Mit der "neuen" Lösung musst du jedem im Team erklären, dass er nach dem Create noch deine Erzeugen Methode aufrufen soll. Vergiss einer das, kannst du dir denken was passiert.

[Christian18]

Zitat:

Zitat von jbg

Mit der "neuen" Lösung musst du jedem im Team erklären, dass er nach dem Create noch deine Erzeugen Methode aufrufen
soll. Vergiss einer das, kannst du dir denken was passiert.

öhhhhhhhhmmmm... nichts?!?!?! :-D

[Christian18]

Kann mir jemand das Prinzip der Kapselung erklären??? Man findet den Begriff überall und ich habe keine Ahnung was das ist oder was man damit macht.