Einlesefehler bei MemoBox

[DeddyH]

Und wenn wir jetzt mal alles zusammenfassen:

Delphi-Quellcode:

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],0);
      min:=strtofloatdef(memo1.lines[0],0);
    end
  else
    begin
      max := 0;
      min := 0;
    end;

  soll:=strtofloatdef(edit1.text,0);
  plus:=strtofloatdef(edit2.Text,0);
  minus:=strtofloatdef(edit3.Text,0);

  ug:= soll-minus;
  ueg:= soll+plus;

  zahl:= Memo1.Lines.count; //wozu wird zahl gebraucht?

  for i:= 0 to memo1.Lines.Count - 1 do
    begin
      aktuell := strtofloatdef(memo1.Lines[i],0);
      if aktuell < min then
        min:= aktuell; 

      if aktuell > max then
        max:= aktuell;

      if aktuell < ug then
        inc(unter);

      if aktuell > ueg then
        inc(ueber);

      summe:= summe + aktuell;

    end;

Ich hoffe, ich habe jetzt nichts übersehen.