edit inhalte addieren

[cware]

hier entsteht durch das TryStrToFloat() genau das gleiche Problem wie mit StrToFloatDef()...

wenn, dann doch bitte sowas wie:

Delphi-Quellcode:

for i := 0 to Pred(EditList.Count) do
begin
  if TryStrToFloat((EditList[i] as TEdit).Text, dValue) then 
    EditSum := EditSum + dValue;
  else
  begin
    // noch besser ist übrigens eine status-zeile
    // modale fenster werden heutzutage immer
    // unattraktiver
    MessageDlg('Bitte einen korrekten Wert in ' + (EditList[i] as TEdit).Name + ' eintragen.',
               mtError, [mbOK], 0);

    Exit;
  end;
end;

cheers...