Kleiner Tip am Rand:
Pack den Code in eine eigene Methode und nicht direkt in das Event.
Meistens stellt man fest, dass man diesen Teil von anderen Stellen auch noch aufrufen muss/möchte und dann ist copy/paste immer ein schlechter Berater.
Delphi-Quellcode:
procedure TErgebnisse.FormActivate(Sender: TObject);
begin
PresentRatePictures;
end;
procedure TErgebnisse.PresentRatePictures;
begin
Schlecht.Visible := n < 4;
Ok.Visible := (n > 3) and (n < 7);
Gut.Visible := (n > 6) and (n < 10);
Perfekt.visible := n = 10;
end;
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9
dc 90 9d f0 e9 de 13 da 60)