Ich hab folgendes Problem :
Ich gebe die Werte die ausgeben möchte alle in der Variable
i aus !
Nun möchte ich nach der Ausgabe im StringGrid, i auch in 4 Panels ausgeben.
Da in meinem Programm auch die Kreditlaufzeit in Jahren ausgegeben werden soll,
muss ich die Variable i notgedrungen durch 12 teilen, da sie ein Integertyp ist
geht dies leider nicht. Momentan bin ich leider sehr ratlos...
Deswegen meine Frage kann ich die Var. i iwie nach float umwandeln ?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer ;
temp : String ;
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 := IntToStr(i)/12 ; da bekomme ich dann die Fehlermeldung !
//hier wäre die Ausgabe für die Anzahl der Jahre !!
Panel4.Caption := FloatToStrF(ende,ffFixed,10,2);
LG GericasS