|
Registriert seit: 13. Feb 2017
21 Beiträge
|
Fehlerquotient
27. Feb 2017, 09:23
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)!!!
|