Das Label wird nach einer bestimmten Zeit nicht mehr aktual.

[Darkchild]

Sorry, ganz vergessen !

Denke das sollte in diesem teil des Codes verborgen sein :

Delphi-Quellcode:

procedure Tfrmgrundrechenarten.Rechnen();
var
x1,x2,x3,x4,x5,x6:integer;
geteilt:string;
begin
//Rechenarten
edtgrundrechenergebniss.SetFocus;
case Punkte of
    0..10: begin;
           randomize;
           x1 := random(9999);
           x2 := random(6666);
           Operatorauswahl();
           case Operatorzeichen of
                '+':begin;
                    lblAufgabe.Caption := (inttostr(x1)+' '+ Operatorzeichen +' '+inttostr(x2));
                    Ergebnis := x1 + x2;
                    end;
                '-':begin;
                    while x1 < x2 do
                    begin;
                         x1 := random(9999);
                         x2 := random(6666);
                    end;
                    lblAufgabe.Caption := (inttostr(x1)+' '+ Operatorzeichen +' '+inttostr(x2));
                    Ergebnis := x1 - x2;
                    end;
                '*':begin;
                    lblAufgabe.Caption := (inttostr(x1)+' '+ Operatorzeichen +' '+inttostr(x2));
                    Ergebnis := x1 * x2;
                    end;
                '/':begin;
                    while x1 < x2 do
                    begin;
                    x1 := random(9999);
                    x2 := random(6666);
                    end;
                    lblAufgabe.Caption := (inttostr(x1)+' '+ Operatorzeichen +' '+inttostr(x2));
                    Ergebnis := x1 / x2;
                    Ergebnis := Ergebnis * 1000;
                    Ergebnis := trunc(Ergebnis);
                    Ergebnis := Ergebnis / 1000;
                    geteilt := vartostr(Ergebnis);
                    end;
           end;
           end;
    11..20:begin;

           end;
end;
end;

Gruss
Darkchild