mit den werten aus dem Stringgrid rechen

**Bruce86**

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

zusammenfalten · markieren

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

mit den werten aus dem Stringgrid rechen

mit den werten aus dem Stringgrid rechen

Forumregeln