festgeldentwicklung mit canvas als Graph darstellen

[MasterChief2]

das ist jetzt so ohne programm entstanden, ich hoffe es hilft. fehler dürften keine drin sein! an der anpassung kannst du noch arbeiten, es sind nur die oldx, oldy, newx, newy interessant!!

Delphi-Quellcode:

var  zinsen: real;
     geldbetrag: array[0..11] of real;
     i,oldx,oldy,newx,newy : integer;
begin
  //übernahme der variablen von den edit-feldern
  geldbetrag[0] := strtofloat(edit_start.Text);
  zinsen := 1 + (strtofloat(edit_zins.Text)/100);
  //berechnung der erhaltenen zinsen für jeden monat
  for i:=1 to 11 do
  begin
   geldbetrag[i] := geldbetrag[i-1]*zinsen;
  end;
  //zeichnen in das image
  for i:=0 to 11 do
  begin
   //koordinate des startpunktes bzw. des vorrangegangenen punktes
   oldx := i*10;
   oldy := image1.height-trunc(geldbetrag[i]/20);//durch 20 ist nur zur skalierung
   //berechneten koordinaten eintragen
   image1.Canvas.MoveTo(oldx,oldy);
   //koordinaten des folgenden punktes
   newx := i*10+10;
   newy := image1.height-trunc((geldbetrag[i]*zinsen)/20);//durch 20 ur zur skalierung
   //linie zu diesem folgenden punkt ziehen
   image1.Canvas.lineto(newx,newy);
  end;
end;