Zitat:
... gemacht und es kommt folgender Fehler.. :
Deswegen sollte man nicht Copy & Pasten. Vorher muss man versuchen den Code zu verstehen.
Ich kenne die Fehlermeldungen von Lazurus (weg damit ...) nicht, aber du hast sicherlich vergessen GANZ OBEN IN DER
UNIT IM PRIVATE-ABSCHNITT
procedure PresentRatePictures;
zu deklarieren.
Zitat:
Ja bin jetzt nur noch bei einem Label.
Wenn du doch nur noch ein Label hast, wieso benutzt du dann noch
Delphi-Quellcode:
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
?