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:

Zitat von Lisa.99 (Beitrag 1362748)

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 :-D
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:

Zitat von himitsu (Beitrag 1362824)

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.

[himitsu]

Fehlermeldung markieren und Strg+C,
auch bei Dialog-Fenstern funktioniert Strg+C
und schon hat man den "Text" in der Zwischenablage.

Und ich wette, dass ich mir den Fehler dennoch denken kann.

Zitat:

[dcc32 Fehler] E2010 Inkompatible Typen: 'Integer' und 'string'

Zeile markieren und F1 drücken (im Compilerfenster)
oder siehe mein vorheriger Post.

[Lisa.99]

Danke habe es hinbekommen

Hier soll er den Fehlerquotient berechnen, nur leider kann man als Fehleranzahl keine Kommazahlen eingeben. Ich glaube das es kein integerwert sein darf, nur leider wüsste ich nicht in wie weit ich das ändern muss, damit der ganze button dann funktioniert.
var wort, fehler, ergebnis : integer;
begin
wort:= strtoint(Edit3.Text);
fehler:= strtoint(Edit5.Text);
ergebnis:= (fehler*100) div wort;
Edit4.Text:= inttostr(ergebnis);

[Luckie]

Ein Fließkommadatentyp währe zum Beispiel extended oder real oder double.