Nach bestimmer Variable bestimme Aktion ausführen

[Sir Rufo]

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;