Projektaufgabe

[Sir Rufo]

Also was alle hier meinen ist, dass du das ungefähr so aufbauen solltest:

Delphi-Quellcode:

type
  TJahreswert = record
    Jahr : Integer;
    Guthaben : Currency;
    Zinsen : Currency;
  end;

  TJahreswerte = array of TJahreswert;

function BerechneJahreswerte( Anlage : Currency; Zins : Double; Laufzeit : Integer ) : TJahreswerte;
var
  LIdx: Integer;
begin
  SetLength( Result, Laufzeit );
  for LIdx := Low( Result ) to High( Result ) do
  begin
    // hier muss jetzt die Berechnung für die einzelnen Jahre erfolgen ...
  end;
end;

procedure TForm1.BerechnenButtonClick( Sender : TObject );
var
  LAnlage : Currency;
  LZins : Double;
  LLaufzeit : Integer;
  LJahreswerte : TJahreswerte;
  LIdx : Integer;
begin
  // Eingabe
  LAnlage := StrToFloat( AnlageEdit.Text );
  LZins := StrToFloat( ZinsEdit.Text );
  LLaufzeit := StrToInt( Laufzeit.Edit.Text );
  
  // Verarbeitung
  LJahreswerte := BerechneJahreswerte( LAnlage, LZins, LLaufzeit );

  // Ausgabe
  for LIdx := Low( LJahreswerte ) to High( LJahreswert ) do
  begin
    // Ja, wohin auch immer hinschreiben 
    // LJahreswerte[LIdx].Jahr
  end;
end;