Fehlerbehandlung verbessern

[WIng2005]

Hallo Gemeinde,

seht ihr eine Möglichkeit, dies hier:

Delphi-Quellcode:

try
x1:=strtofloat(s1);
except
x1:=0;
end;
.
.
.

try
xn:=strtofloat(sn);
except
xn:=0;
end;

xges:=x1+x2....+xn

in irgendeiner Form zu verbessern? Sollte zum einen weniger Code und zum Anderen eleganter werden....

Danke für eure Anregungen

MFG
Steffen

[semo]

hallo!
probier es einmal mit StrToFloatDef(),
dabei kannst du einen standardwert angeben der im fehlerfall genommen wird.

[mkinzler]

if not TryStrTofloat(s1, x1) then x1 := 0;

[RavenIV]

Du kannst es so machen:

Delphi-Quellcode:

if not TryStrToFloat(s1, x1) then
begin
  x1 := 0;
end;

/edit
Zu langsam.
Wobei meine Version aber nach StyleGuide ist.

[WIng2005]

Habt mal vielen Dank.... schaue mir beides mal an.

MFG
Steffen

[sirius]

Naja, und dass du für die x-e ein Array einsetzen kannst, ist dir auch bekannt.

[WIng2005]

klar, ist mal wieder nur ein Beispiel. In meinem Code kommen an Stelle
der x-e ne Menge Informationen zusammen. Ging eher ums Prinzip.

MFG
Steffen

[himitsu]

wozu ein Array ... er kann auch gleich zusammenrechnen

Delphi-Quellcode:

xges := 0;
for i := 1 to n do
  xges := xges + StrToFloatDef(s[i]{oder wie auch immer}, 0);

oder

Delphi-Quellcode:

xges := 0;
for i := 1 to n do
  if TryStrToFloat(s[i], x) then xges := xges + x;