liege ich richtig mit dem OOP-Versuch

[Luckie]

Zitat von p80286:

Schau mal auf die Uhrzeit, da kann man Constructor und Destructor schon mal verwechseln was die Reihenfolge des inherited angeht.

Hehe. Danke für die Ausrede.

[EdAdvokat]

Hallo nochmals eine Frage zum leidigen Thema Destructor:
habe folgenden Code geschrieben im type Tirgendwas:

Delphi-Quellcode:

public
  constructor create;
  destructor destroy; override;
  procedure init;

dann den Destructor aufgerufen mit:

destructor TKredit.destroy;
begin
    inherited destroy;
end;

Ich erhalte dann folgenden Hinweis:
[dcc32 Hinweis] uUnit1.pas(19): H2365 Schreibweise der Überschreiben-Methode TKredit.destroy muss exakt ihrem Vorfahren TObject.Destroy entsprechen
Was muss ich anders machen?

[DeddyH]

Destroy mit großem D schreiben. Das liegt einfach daran, dass Delphi und C++ dieselben Bibliotheken nutzen und C++ case-sensitive ist.

[EdAdvokat]

Danke, irre, darauf sollte einer kommen!!! Es gibt nun keinen Hinweis mehr!!!

[himitsu]

Zum Glück hat jetzt keiner darauf hingewiesen, dass die Lösung sogar direkt in dem Compiler-Hinweis genannt wurde.

[EdAdvokat]

Hallo, eine Frage zum Umgang mit Attributen(Fields). Ich kann zwar wie nachfolgend zu sehen ist, eine
einfache Berechnung der Zinsen vornehmen, jedoch wenn ich den Zinseszins berechnen möchte unter Einsatz
von power geht das nicht, da die Fields nicht mit Methoden umgehen können(hoffentlich habe ich das so
richtig verstanden).
Was kann ich also machen, um beispielsweise mit Power zu rechnen oder etwa sqr usw. einzusetzen?
Kann ich eine Zuweisung der Fields vornehmen, um dann damit zu rechnen?

Delphi-Quellcode:

 type
  TKredit = class
  strict private
    FKredit :double;
    FZinssatz:double;
    //FZinsen: double;
    FJahre  : integer;
    procedure setKredit(Kredit: double);
    procedure setZinssatz(Zinssatz: double);
    procedure setJahre(J: integer);
    function  GetZinsen: double;
  public
    constructor create;
    destructor Destroy; override;
    procedure init;
   // procedure berechneZinsen;
    property Kredit: double read FKredit write setKredit;
    property Zinssatz: double read FZinssatz write setZinssatz;
    property Zinsen: double read GetZinsen;
    property Jahre: integer read FJahre write setJahre;
  end;

function TKredit.GetZinsen;
begin
  result:=FKredit * FZinssatz/100*FJahre;
end;
{procedure TKredit.berechneZinsen;
begin
  FZinsen:= FKredit *Power((1+ FZinssatz/100),Jahre);
end;}

[Der schöne Günther]

Ich sehe nicht wo jetzt das Problem bei deinem auskommentierten Code sein sollte. Was bekommst du denn für eine Fehlermeldung?