moin leute!
Ich muss im Unterricht ein programm zu kredittilgung ( mit stringgrid) schreiben. Ich hab das auch soweit hinbekommen, aber irgendwie läuft es nich...bitte um hilfe!
so siehts bis jetzt aus:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i, Jahr, m : Integer ;
kredit, zinsen, Rate, Tilgung, Restschuld : real ;
begin
Kredit:=strtofloat(edit1.text);
zinsen:=strtofloat(edit4.text);
Jahr:=strtoint(edit3.text);
rate:=strtofloat(edit2.text);
m:=jahr*12;
i:=1;
for i:=1 to m do
begin
Zinsen:=(Kredit*zinsen)/(100*12);
Tilgung:= Rate-Zinsen;
Restschuld:=Kredit-Tilgung;
end;
with form1.StringGrid1 do
begin
cells[0,i]:=inttostr(i);
cells[1,i]:=floattostr(zinsen);
cells[2,i]:=floattostr(tilgung);
cells[3,i]:=floattostr(restschuld);
Kredit:=restschuld;
rowcount:=m;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
StringGrid1.Cells[0,0]:='Monat';
StringGrid1.Cells[1,0]:='Zinsen';
StringGrid1.Cells[2,0]:='Tilgung';
StringGrid1.Cells[3,0]:='Restschuld';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
form1.close
end;
end.
folgende fehler werden bei start des programms angezeigt:
[Hinweis] Unit1.pas(65): Auf 'kredit' zugewiesener Wert wird niemals benutzt
[Warnung] Unit1.pas(60): FOR-Schleifenvariable 'i' kann nach Durchlauf undefiniert sein
[Hinweis] Unit1.pas(51): Auf 'i' zugewiesener Wert wird niemals benutzt
[Warnung] Unit1.pas(62): Variable 'Tilgung' ist möglicherweise nicht initialisiert worden
[Warnung] Unit1.pas(63): Variable 'Restschuld' ist möglicherweise nicht initialisiert worden
(hab mir schon posts zu diesem thema durchgelesen, die führn mich aber leider nich zur lösung meines problems!)