liege ich richtig mit dem OOP-Versuch

[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?

[himitsu]

Vergessen die Unit für Power einzubinden?

[EdAdvokat]

Hallo, Power-Funktion war über Math eingebunden. Habe jetzt berechneZinsen als function geschrieben und es klappt.

Delphi-Quellcode:

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

Irgendwo habe ich mal gelesen, dass das Rechnen mit Methoden und Fields nicht möglich sei. Es geht wohl doch.

[Jumpy]

Zitat von EdAdvokat:

Delphi-Quellcode:

function TKredit.berechneZinsen: double;
begin
  result:= FKredit *Power((1+ FZinssatz/100),Jahre);
end;

In der Formel mischst du jetzt aber munter Felder und Property. Ist egal, weil es klappt, aber mMn sollte man das schon einheitlich machen, z.B. intern nur mit Feldern arbeiten, dann wäre das hier FJahre statt Jahre.