Fehlerquotient

[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