Gute Morgen nocheinmal,
ich weiß nicht genau ob es hier auch so geregelt ist, 1 Frage 1 Topic wie beim DelphiForum ?
Aber nach meinem gmv bin ich schon der Meinung
Nach der super Hilfe von eben gerade, funktioniert alles super !
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer ;
kredit,zinsen,zinssatz,rate,ende : real ;
begin
kredit := StrToFloat(edit1.Text);
rate := StrToFloat(edit2.Text);
zinssatz := StrToFloat(edit3.Text)/100;
i := 0 ;
while kredit > 0 do
begin
inc(i);
StringGrid1.RowCount:=(i+1);
zinsen := kredit*zinssatz/12 ;
ende := kredit-rate+zinsen ;
StringGrid1.Cells[0,i]:=IntToStr(i);
StringGrid1.Cells[1,i]:=FloatToStrF(kredit,ffFixed,10,2);
StringGrid1.Cells[2,i]:=FloatToStrF(zinsen,ffFixed,10,2);
StringGrid1.Cells[3,i]:=FloatToStrF(ende,ffFixed,10,2);
kredit:=ende ;
if ende < 0 then break ;
Panel1.Caption := IntToStr(i);
Panel2.Caption := FloatToStr(i/12);
Panel4.Caption := FloatToStrF(ende,ffFixed,10,2);
Jetzt besteht nurnoch das folgende Problem, wenn meine Rechnunug den letzten Monat erreicht ( also wenn der Kredit 0 € erreicht ), zeigt das StringGrid noch einen weiteren Monat an, wo der Kreditbetrag (ende) negativ wird...
Dies hab ich schon versucht zu unterbinden in dem ich folgendes gemacht habe...
if ende < 0 then kredit := 0
Was aber leider entweder den effekt hatte, das sich gar nichts tat oder in meinem Panel der anzeigt was noch zu zahlen sei im letzten montag 0 stand.
Ich hoffe ich konnte das Problem verständlich schildern
LG
GericasS