AW: Nach bestimmer Variable bestimme Aktion ausführen
Fractal,
gemeint ist, dass du dich nicht nur deine Fehler hier posten sollst, sondern auch den passenden Code dazu. Zitat:
Delphi-Quellcode:
Zudem würde ich, wie auch bereits erwähnt, von den vier Labels wegkommen.
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; 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. |
AW: Nach bestimmer Variable bestimme Aktion ausführen
Zitat:
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). |
AW: Nach bestimmer Variable bestimme Aktion ausführen
Der Link funktioniert wohl nicht ganz richtig, darum ein Zitat:
Zitat:
Gruß K-H |
AW: Nach bestimmer Variable bestimme Aktion ausführen
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. |
AW: Nach bestimmer Variable bestimme Aktion ausführen
Ok, habs mit
Delphi-Quellcode:
gemacht und es kommt folgender Fehler.. :
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;
Code:
Wenn auf den richtigen Button geklickt wird:
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
Delphi-Quellcode:
Ja bin jetzt nur noch bei einem Label.
n := StrToIntDef(Ergebnisse.Zahl.caption, 0);
n := n + 1; Ergebnisse.Zahl.caption := IntToStr(n); |
AW: Nach bestimmer Variable bestimme Aktion ausführen
Wo ist der Fehler mit dem
Delphi-Quellcode:
?
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? :wall: |
AW: Nach bestimmer Variable bestimme Aktion ausführen
Zitat:
Ich kenne die Fehlermeldungen von Lazurus (weg damit ...) nicht, aber du hast sicherlich vergessen GANZ OBEN IN DER UNIT IM PRIVATE-ABSCHNITT
Delphi-Quellcode:
zu deklarieren.
procedure PresentRatePictures;
Zitat:
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 |
AW: Nach bestimmer Variable bestimme Aktion ausführen
Grundlagen-Tutorial speziell OOP: http://www.delphi-treff.de/tutorials...rogrammierung/
|
AW: Nach bestimmer Variable bestimme Aktion ausführen
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]; |
AW: Nach bestimmer Variable bestimme Aktion ausführen
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; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:23 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz