Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
8. Dez 2008
Hier hab ich auch nur Delphi 5, aber man kann doch StrToIntDef auf Float anpassen:
function StrToFloatDef(const S: string; Default: Extended): Extended;
var
E: Integer;
begin
Val(S, Result, E);
if E <> 0 then Result := Default;
end;
Ich möchte fast wetten, dass das Original auch nicht viel anders aussieht.
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
15. Nov 2008
Einen Initialwert brauchst Du ja zum Vergleich, wobei hier Memo1.Lines natürlich sinniger wäre.
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
15. Nov 2008
Dafür kommt meine Version auch mit "Blödsinn" im Memo zurecht ;). Richtig gut wäre es wahrscheinlich, mittels einer Boolean-Variable zu kennzeichnen, wann die erste gültige Zeile ausgewertet wurde. Aber das ist wohl eher eine Aufgabe für den TE :zwinker:
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
15. Nov 2008
Und wenn wir jetzt mal alles zusammenfassen:summe:=0;
unter:=0;
ueber:=0;
aktuell := 0; //erspart uns die ständige Konvertierung
if Memo1.Lines.Count > 0 then
begin
max:=strtofloatdef(memo1.Lines,0);
min:=strtofloatdef(memo1.lines,0);
end
