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...