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.