TMain - Goethe Gymnasium Dortmund

EdReaktionszeit.Text := '';
EdMinimum.Text := '';
EdMaximum.Text := '';
EdDurchschnitt.Text := '';
end;
procedure TMain.BtAuswertungClick(Sender: TObject);
begin
IF EdReaktionszeit.Text '' THEN BEGIN
Zeitenliste.Show;
EdMinimum.Text := IntToStr(Zeitenliste.Minimum);
EdMaximum.Text := IntToStr(Zeitenliste.Maximum);
EdDurchschnitt.Text:= IntToStr(Zeitenliste.Durchschnitt)
END
ELSE Showmessage('nicht möglich !')
end;
procedure TMain.FormKeyDown(Sender: TObject; var Key:
Word; Shift: TShiftState);
{wichtig: ein Tastendruck wird nur von dem aktiven Formblatt registriert. Das
Drücken der Leertaste entspricht dem Mausklick auf denjenigen Button, der den
Fokus hat.}
VAR Zeitdifferenz: TDateTime;
stunde, minute, sekunde, ms: WORD;
begin
Stopzeit := now;
Zeitdifferenz := Stopzeit – Startzeit;
DecodeTime(Zeitdifferenz, stunde, minute, sekunde, ms);
IF Ampel.IstGruen THEN BEGIN
EdReaktionszeit.Text:=IntToStr(1000*sekunde + ms)+' ms';
Zeitenliste.Fuegein(sekunde * 1000 + ms);
Diagramm.TragEin(sekunde * 1000 + ms);
Ampel.machRot
END
ELSE showmessage('Ampel ist rot')
end;
18