Probleme beim programmieren eines Kapitalwertrechners

[DeddyH]

Kleines Beispiel (soll die Summe der in Stringliste übergebenen Zahlen berechnen):

Delphi-Quellcode:

function MySum(const sl: TStrings): Extended;
var i: integer;
begin
  Result := 0;
  for i := 0 to Pred(sl.Count) do
    Result := Result + StrToFloatDef(sl[i],0);
end;

Ein Aufruf könnte dann so aussehen:

Delphi-Quellcode:

procedure TFormWuppdi.ButtonBlaClick(Sender: TObject);
begin
  ShowMessage(FloatToStr(MySum(ListBoxBlubb.Items)));
end;

[edit] Tippfehler, der Parametertyp muss natürlich TStrings heißen. [/edit]