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;

[Fractal]

Ich hab die Bilder alle schon im voraus unter Visible -> False eingestellt.

Nichtsdestotrotz bekomme ich folgende Fehlermeldung:

Fatal: Syntax error, ";" expected but "ELSE" found

Code:

procedure TErgebnisse.FormActivate(Sender: TObject);
begin
   Schlecht.Visible := n < 4;
   Ok.Visible := (n > 3) and (n < 7);
   Gut.Visible := (n > 6) and (n < 10);
   Perfekt.visible := n = 10;
end;

Damit hab ich immer noch das selbe Probleme.

Außerdem hab ich Schlecht ganz zurück gestellt, sodass Ok bspw. vorne liegen würde, jedoch krieg ich immer noch Schlecht angezeigt, obwohl 4/10 Ok anzeigen müsste.
(9/10 zeigt zB. Ok an)

[Sir Rufo]

In dem Codeteil ist der Fehler nicht.

Zeig doch mal den gesamten Code und bitte, bitte benutze die

Code:

[DELPHI]
[/DELPHI]

Tags für Delphi-Code

[baumina]

Spätestens jetzt muss ich fragen wann denn die Variable n einen Wert bekommt.

[himitsu]

Erstmal ist eine (globale) Variable "n" nicht sonderlich aussagefähig, über ihre Funktion.

Zitat:

Fatal: Syntax error, ";" expected but "ELSE" found

Wo?

Zitat:

jedoch krieg ich immer noch Schlecht angezeigt, obwohl 4/10 Ok anzeigen müsste.

Was sagt der Debugger?

Und wann wird "n" gesetzt?

[Fractal]

Zitat:

Zitat:

Fatal: Syntax error, ";" expected but "ELSE" found

Wo?

Da wo's erste Else gesetzt wird.

Zitat:

Was sagt der Debugger?

Nichts

Zitat:

Und wann wird "n" gesetzt?

n in dem Label setzt sich ja aus allen richtigen Antworten aus den anderen Units zusammen (siehe alten Thread).

[baumina]

Keine Lust auf Schnitzeljagd ... Ich klink mich aus.

[Sir Rufo]

Zitat:

Zitat von Fractal (Beitrag 1256518)

Zitat:

Zitat:

Fatal: Syntax error, ";" expected but "ELSE" found

Wo?

Da wo's erste Else gesetzt wird.

Delphi-Quellcode:

procedure TErgebnisse.FormActivate(Sender: TObject);
begin
   Schlecht.Visible := n < 4;
   Ok.Visible := (n > 3) and (n < 7);
   Gut.Visible := (n > 6) and (n < 10);
   Perfekt.visible := n = 10;
end;

Ach da, ja da musst du einfach nur 42 in den Projekt-Optionen ankreuzen, dann geht es :roll:

[Fractal]

42 ist wo & was.. ?

[Sir Rufo]

Zitat:

Zitat von Fractal (Beitrag 1256525)

42 ist wo & was.. ?

http://de.wikipedia.org/wiki/42_(Antwort)