Hallo,
versuche mal diesen Passus:
Delphi-Quellcode:
n:=i;
while n>0 do
begin
zahlungen:=zahlungen+strtofloat(memo1.Lines.Strings[n]);
n:=n-1;
end;
durch diesen auszutauschen.
Delphi-Quellcode:
zahlungen:=0;
for n:=0 to memo1.lines.count -1 do
if memo1.Lines.Strings[n] <> '' then
zahlungen:=zahlungen + strToFloat(memo1.lines.Strings[n]);
Vielleicht kannst Du noch schreiben, was an Deiner Vorgehensweise nicht funktionert.
Im Memo sind da pro Zeile die Einzahlungen eines Jahres eingetragen.
Dann würde ja auch noch ein Zinseszins Effekt eintreten.
Grüße
Klaus