Fehlerquotient

[Lisa.99]

Hallo!
Ich lasse den Fehlerquotienten berechnen. Nun wollte ich die dazugehörigen Notenpunkte ausgeben lassen. Nur leider zeigt er mir einen Fehler.


procedure TForm1.Button6Click(Sender: TObject);
var fehlerquotient, erg : integer;
begin
fehlerquotient:= strtoint(Edit4.Text);
if fehlerquotient < '0,59' then
begin erg:= '15';
Edit6.Text:= inttostr(erg);

Er meckert bezüglich der Zahl (0,59)!!!

[Poelser]

Moin!

Zitat von Lisa.99:

procedure TForm1.Button6Click(Sender: TObject);
var fehlerquotient, erg : integer;
begin
fehlerquotient:= strtoint(Edit4.Text);
if fehlerquotient < '0,59' then
begin erg:= '15';
Edit6.Text:= inttostr(erg);

Er meckert bezüglich der Zahl (0,59)!!!

Da stecken schon ein paar Fehler drin. Erstens brauchst du statt StrToInt ein StrToFloat, da du wohl mit Nachkommastellen rechnest. Und statt '0,59' schreibst du 0.59, also mit Punkt und ohne die Anführungszeichen. Damit rechnest du tatsächlich mit einer Zahl und nicht mit einem Text. Daher sollte fehlerquotient auch vom Typ Float sein, nicht Integer.

Bis denne,
Poelser

[Lisa.99]

Dankeschön
Das hilft mir bestimmt weiter.

[himitsu]

Hast auch erwähnt, dass die "Zahlen" im Code eigentlich "Strings" sind?

Als String wäre in einem deutschen Windows '0,59' mit Komma natürlich richtig, auch wenn der String der eigentliche Fehler ist.

[Poelser]

Moin,

Zitat von himitsu:

Hast auch erwähnt, dass die "Zahlen" im Code eigentlich "Strings" sind?

jupp, hab ich nicht. Aber guter Hinweis, damit haben wir das dann auch erwähnt.

Bis denne,
Poelser

[Lisa.99]

begin erg:= '15';
Edit6.Text:= Floattostr(erg);
end else

Hier zeigt er mir, dass Fehler aufgetreten sind, aber weiß leider den Fehler nicht.