Einlesefehler bei MemoBox

[Klaus01]

Guten Abend,

um unnötige Konvertierungen zu vermeiden,
könntest Du auch so vorgehen.

Delphi-Quellcode:

var
  value: extended;
....
for i:= 0 to memo1.Lines.Count -1 do
  begin
    if memo1.Lines[i] <> '' then
      begin
        value:= StrToFloat(memo1.Lines[i]);
    
        if value < min then
          min:= value;

        if value > max then
          max:= value;

        if value <ug then
          unter:=unter+1;

        if value >ueg then
          ueber:= ueber+1;

        summe:= summe+value;
      
      end;

   end;

Grüße
Klaus

P.S.
Die Version von DeddyH hat den Nachteil das wenn es einen min Wert
gibt der größer 0 ist hier immer der minWert 0 ist.