Spezifischen Text anzeigen

[McReier]

Guten Morgen zusammen,
möchte folgende Aufgabe lösen und weiß nicht so recht, wie ich das anpassen soll:
Ich will einen spezifischen Text in einen Popup anzeigen. Ich habe drei Variablen, A,B und C.
Wenn A kleiner 3 ist soll beim Klick auf den Button "Ergebnis" im Popup für A=gut stehen
Ist A= 4 oder 5 soll im Popup für A=Naja stehen. A>=6 soll "Hast ja super gemacht" stehen.
Gleiches Vorgehen für die Variablen B und C.

Ich will natürlich nicht für jede Variable einen eigenen Button. Es soll beim ButtonClick "Ergebnis" A,B und C je nach Wert in das Popup geschrieben werden.

Welche Vorhgehensweise würdet Ihr mir für diesen Fall empfehlen?
Ich Danke Euch!!

[mse]

Ich will natürlich nicht für jede Variable einen eigenen Button. Es soll beim ButtonClick "Ergebnis" A,B und C je nach Wert in das Popup geschrieben werden.

Diese Information verstehe ich nicht.

[Michl]

Welche Vorhgehensweise würdet Ihr mir für diesen Fall empfehlen?

Ich glaube, was du suchst ist ein "Showmessage" und kein "Popup".

Wenn A kleiner 3 ist soll beim Klick auf den Button "Ergebnis" im Popup für A=gut stehen
Ist A= 4 oder 5 soll im Popup für A=Naja stehen. A>=6 soll "Hast ja super gemacht" stehen.

Dafür würde ich eine "Case"-Abfrage machen (diese kann ja in einer eigenen Procedure stecken, die als Variable A, B oder C übergeben bekommt und dann entsprechend die/das Showmessage aufruft).

[McReier]

Hab' das heute mal probiert aber irgendwie klappt das nicht.

Was mach ich da falsch?

Code: Alles auswählen

begin
      case (Edit1.Text=3) OR  (Edit1.Text>3)
      'Versuch'   :='3';
      case (Edit1.Text=4) OR  (Edit1.Text<7)
      'Versuch'   :='4-7';
      case Edit1.Text>7
      'Versuch'   :='7';
      else 'Versuch' :='-';
     end;
    label1.caption:=Versuch.text;
end           

Danke!

[wp_xyz]

Das ist kein Pascal. Mache dich mal über die "case"-Anweisung schlau (http://wiki.freepascal.org/Case/de)

[theo]

So funktioniert case nicht.

Warum nicht einfach mal die Doku lesen?

http://wiki.freepascal.org/Case
http://www.freepascal.org/docs-html/ref/refsu50.html