Halli hallo liebe Delphi-Cracks
,
ich habe mal wieder irgendein dummes Anfänger-Problem
:
Über eine MemoBox möchte ich gerne einzelne Werte (Zahlen) pro Zeile
einlesen lassen, um damit weiterzurechnen.
Mein Problem: Egal was für Zahlen ich eingebe: jedes Mal bekomme ich
"" ist kein gültiger Gleitkommawert
.
Hier mal der relevante Code-Abschnitt (beim Proggi handelt es sich um Qualitätskontrolle von Wellen, nur so am Rande):
Delphi-Quellcode:
summe:=0;
unter:=0;
über:=0;
max:=strtofloat(memo1.Lines[1]);
min:=strtofloat(memo1.lines[1]);
soll:=strtofloat(edit1.text);
plus:=strtofloat(edit2.Text);
minus:=strtofloat(edit3.Text);
ug:= soll-minus;
üg:= soll+plus;
zahl:= Memo1.Lines.count;
for i:= 1 to memo1.Lines.Count do
begin
if strtofloat(memo1.Lines[i]) < min then
min:= strtofloat(memo1.Lines[i]);
if strtofloat(memo1.Lines[i]) > max then
max:= strtofloat(memo1.Lines[i]);
if strtofloat(memo1.lines[i])<ug then
unter:=unter+1;
if strtofloat(memo1.lines[i])>üg then
über:= über+1;
summe:= summe+strtofloat(memo1.lines[i]);
end;
kurze Erläuterung: es sollen jeweils die Anzahl der getesteten Wellen, der kleinste, mittlere, größte Durchmesser, sowie die Anzahl der Wellen ausgegeben werden, die einen eingegebenen Toleranzwert über- bzw. unterschreiten.
Außer dieser Fehlermeldung scheint das Programm ganz gut zu laufen.
Ich hoffe, ihr könnt mir weiterhelfen, auch noch diesen Fehler auszubügeln
Liebe Grüße
Giertier ^^