Okay, hier sind die hoffentlich richtigen Teile:
Variablen:
Delphi-Quellcode:
var
Form1: TForm1;
Start: longint;
Stop: longint;
Treffer: int;
Summe: real;
Durchschnitt: longint;
Variablen auf 0 setzen
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
Summe:=0;
Treffer:=0;
end;
Verändern der Variablen:
Delphi-Quellcode:
procedure TForm1.Sh_SchwerMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Form1.Caption:=inttostr(strtoint(Form1.Caption)+1);
Stop:=gettickcount();
Lb_Zeit.Items.Add(inttostr(Stop-Start));
Sh_Schwer.Visible:=false;
Treffer:=Treffer+1;
Summe:=Summe+(Stop-Start);
end;
Division und Ausgabe auf dem Label L_Durchschnitt
Delphi-Quellcode:
Durchschnitt:=Summe/Treffer;
L_Mittelwert.Caption:=floattostr(Durchschnitt);
Ich denke das ist alles.
Zum compiler:
Ich bekomme die Fehlermeldung:
[Fehler] SpielUnit1.pas(168): Inkompatible Typen: 'Integer' und 'Extended'
Gruß
Matzi