Nach bestimmer Variable bestimme Aktion ausführen

[CocoPops]

Fractal,

gemeint ist, dass du dich nicht nur deine Fehler hier posten sollst, sondern auch den passenden Code dazu.

Zitat:

Fatal: Syntax error, ";" expected but "ELSE" found...
jedoch krieg ich immer noch Schlecht angezeigt, obwohl 4/10 Ok anzeigen müsste.

Lösung wurde schon mehr als ein Mal gepostet:

Delphi-Quellcode:

procedure TErgebnisse.FormActivate(Sender: TObject);
begin
   PresentRatePictures;
end;

procedure TErgebnisse.PresentRatePictures;
begin
   Schlecht.Visible := n < 4;             // 0, 1, 2, 3
   Ok.Visible := (n > 3) and (n < 7);     // 4, 5, 6
   Gut.Visible := (n > 6) and (n < 10);   // 7, 8, 9
   Perfekt.visible := n = 10;             // 10
end;

Zudem würde ich, wie auch bereits erwähnt, von den vier Labels wegkommen.
Entweder ein einziges Label und bei der Ergebnisauswertung das Caption ändern, oder, wie ebenfalls bereits erwähnt, ein TImage nutzen und dann das passende Image (Ergebnis) aus einer TImageList laden.