Hallo,
ich bin auf dem Gebiet mit Pascal zu programmieren eher neu und kenne mich etwas mehr in Java aus.
Ich wollte eine Procedure für die Abschreibung von z.B. Maschinen in einem Unternehmen schreiben. Wobei es um eine lineare Abschreibung geht.
Hierfür habe ich mir vorgestellt 2 Eingabefelder zu erstellen. Was ich auch schon gemacht habe
Zudem eine Tabelle wo halt die Jahre, Abschreibungsbeträge und Restwert drin stehen. Habe nur eine Tabelle die sich nicht füllt.
Außerdem bekomme ich Probleme mit den Schleifen, weil die Tabelle muss ja immer solang sein, also rows, wie die Anzahl der Jahre?
Habe es bis jetzt so realisiert:
Delphi-Quellcode:
procedure TLinearAbschr(Sender: TObject);
var jahre : integer;
afabetrag, wert, restwert: double;
stgtabelle.cells[0,0] := 'Nutzjahr';
stgtabelle.cells[1,0] := 'AFA-Betrag';
stgtabelle.cells[2,0] := 'Restbuchwert';
begin
wert := strtofloat (edit1.text);
jahre := strtoint (edit2.text);
afabetrag := (kosten / jahre);
restwert := (wert - afabetrag);
tabel.cells[1,1] := floattostr (afabetrag);
tabel.cells[2,1] := floattostr(restwert);
end;
end.
Bekomme es nur leider nicht weiter hin. Ich möchte das die Tabelle sich dynamisch verlänger, und das die Daten alle eingetragen werden.