hey leute
nach zwei Jahren abstinenz von Delphi wollt ich mal fragen ne frage loswerden.
also habe so nen hypotheken rechner mall programmiert mit all den zinzsätzen tilgungssätzen usw.
so nun stehen im nem stringgrid all die werte ich würde nun gerne die werte auslesen und die gesamtsumme der zinsen berechnen udn hab kein plan mehr wie. würd das gern mit ner schleife mache, so dass dann so lange addiert wird bis auch das stringgrid net mehr gefüllt wird.
gebe euch mal den wuellcode bis dato und vllt habt ihr ja ne idee. wäre cool wenn ihr helfen würdet
lg bruce 86
Delphi-Quellcode:
procedure TForm1.BitBtn2Click(Sender: TObject);
var i:integer;
summe,auszahlung, jahr,monat,prozent,ta,ts,za,zs,ppy :real;
begin
// Abfrage der auszufüllenden Zellen
if SummeEdit.text = '' then
showmessage('Bitte Hypothekensumme festlegen!!!')
else
if ProzentEdit.Text = '' then
showmessage(' Bitte alle Felder ausfüllen!!!')
else
if ZinsEdit.Text = '' then
showmessage('Bitte Zinssatz eingeben!!!')
else
if TilgungEdit.Text = '' then
showmessage('Bitte Tilgungssatz eingeben')
else
if ppyEdit.Text = '' then
showmessage('Bitte den Prozentsatz für die jährliche rate angeben')
else
summe:= strtofloat(SummeEdit.Text);
prozent:=strtofloat(ProzentEdit.Text);
ZS:=strtofloat(ZinsEdit.Text);
ts:=strtofloat(Tilgungedit.Text);
//Berechnung des Auszahlungswertes
auszahlung:=(summe*(prozent/100));
//Ausgabe des Auszahlungswertes
AuszahlungEdit.Text:=floattostrF(auszahlung,fffixed,10,2);
ppy:= zs+ts;
ppyEdit.Text:= FloattostrF(ppy,fffixed,10,2);
//Berechnung der Jahres- und Monatszahlungen
jahr:= (summe*(ppy/100));
monat:= (jahr/12);
//Ausgabe der Jahres-und Monatszahlungen
JahrEdit.Text:=floattostrF(jahr,fffixed,10,2);
monatedit.Text:=floattostrF(monat,fffixed,10,2);
//Berechnungen im StringGrid
i:=1;
summe:= strtofloat(summeedit.Text);
with Stringgrid1 do
repeat
if i>10 then Rowcount:=i+1;
Cells[0,i]:=inttostr(i);
za:=((summe*(zs/100))/12);
Cells[1,i]:=FloattoStrF(za,fffixed,10,2);
ta:= monat-za;
Cells[2,i]:=FloattoStrF(ta,fffixed,10,2);
summe:=(summe-ta+0.01);
Cells[3,i]:=FloattoStrF(summe,fffixed,10,2);
i:=i+1;
until summe<monat;
end;
end.
wäre echt cool wenn ihr das hinbekommen könntet im anhang sehr ihr dan noch wie das Formular ausgefüllt aussieht