Nach bestimmer Variable bestimme Aktion ausführen

[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;