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.