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.

[Phoenix]

Zitat von Fractal:

Zitat:

Was sagt der Debugger?

Nichts

Dann zwinge Deinen Debugger erstmal, Dir zu zeigen welchen Wert 'n' hat, wenn der Code der die Bilder umschaltet, ausgeführt wird.

Dann schaust Du Dir am besten auch nochmal im Detail an, wann überhaupt Dein FormActivate ausgeführt wird und ob Du den Code nicht vielleicht lieber zu einem anderen Zeitpunkt ausführen lassen würdest (z.B. nachdem die Ergebnisse ausgewertet wurden).

[p80286]

Der Link funktioniert wohl nicht ganz richtig, darum ein Zitat:

Zitat:

Die Antwort 42 ist das kürzeste und bekannteste Zitat aus der verfilmten[1] Roman- und Hörspielreihe Per Anhalter durch die Galaxis von Douglas Adams.

Es ist die Antwort auf die vom Autor unklar gestellte Frage „nach dem Leben, dem Universum und dem ganzen Rest“ (“life, the universe and everything”), die in der Geschichte der größte existierende Computer des Universums zu errechnen hat und sie als mit absoluter Sicherheit korrekt darstellt. Letztlich aber können die Protagonisten mit der Antwort nichts anfangen, weil niemand weiß, wie die eigentliche Frage lautete.

(Wikipedia 42(Antwort))

Gruß
K-H

[CocoPops]

N müsste immer einen Wert erhöht werden, wenn der richtige Button (die richtige Antwort) angeklickt wurde.

Und den Code PresentRatePictures; (oder wie auch immer er bei dir heißt) würde ich ausführen, jedes Mal, wenn du auf einen Button klickst ODER
nach dem Button-Klick der letzten Frage.

[Fractal]

Ok, habs mit

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;

gemacht und es kommt folgender Fehler.. :

Code:

unit33.pas(23,25) Hint: Parameter "Sender" not used
unit33.pas(102,23) Error: Identifier not found "PresentRatePictures"
unit33.pas(105,42) Error: method identifier expected
unit33.pas(107,12) Error: Identifier not found "Schlecht"
unit33.pas(108,6) Error: Identifier not found "Ok"
unit33.pas(109,7) Error: Identifier not found "Gut"
unit33.pas(110,11) Error: Identifier not found "Perfekt"
unit33.pas(115) Fatal: There were 6 errors compiling module, stopping

Wenn auf den richtigen Button geklickt wird:

Delphi-Quellcode:

  n := StrToIntDef(Ergebnisse.Zahl.caption, 0);
  n := n + 1;
  Ergebnisse.Zahl.caption := IntToStr(n);

Ja bin jetzt nur noch bei einem Label.

[Sir Rufo]

Wo ist der Fehler mit dem else ?

Warum zeigst du nur Fragmente und nicht die gesamte Unit bzw. die beiden Units?

Wieso muss man dir alles aus der Nase ziehen? Möchtest du, das wir dir helfen, oder ist dir nur langweilig?

[CocoPops]

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

?

[Sir Rufo]

Grundlagen-Tutorial speziell OOP: http://www.delphi-treff.de/tutorials...rogrammierung/

[Popov]

Der Vollständigkritshalber (nur für den Fall, dass es nicht bereits vorgeschlagen wurde):

Delphi-Quellcode:

  Schlecht.Visible  := n in [0..3];
  Ok.Visible        := n in [4..6];
  Gut.Visible       := n in [7..9];
  Perfekt.visible   := n in [10];

[CocoPops]

Und um es noch komplizierter zu machen, da sich hier in diesem Thread sonst wohl nichts mehr tut:

Delphi-Quellcode:

Schlecht.Visible := (n = 0) or (n = 1) or (n = 2) or (n = 3);
Ok.Visible := (n = 4) or (n = 5) or (n = 6);
Gut.Visible := (n = 7) or (n = 8) or (n = 9);
Perfekt.visible := n = 10;