3 verschiedene Zustände ?

[Vader]

hallo,

habe da eine art ampel mit drei shape's, shape1 = rot, shape2 = gelb, shape3 = grün
jetzt frage ich einen wert in einen editfeld ab
mit diesen wert zb. 90 möchte ich jetzt die ampel schalten, aber
ich bringe nur 2 zustände zusammen !!!
wie bringe ich 3 zustände zusammen ?

Delphi-Quellcode:

var  a: real;

begin

a := strtofloat (edit1.Text); 
if a<90
  then shape1.Visible:=true
  else
  shape2.Visible:=true ;

end;

mfg vader

[fkerber]

Hi!

Case ist hier wohl sinnvoll, wenn ich dich richtig verstehe.

Ciao Frederic

[Khabarakh]

Wie wäre es damit ?

Delphi-Quellcode:

a := StrToFloat(Edit1.Text);

if (a > 0) and (a < 34) then
  Shape1.Visible := true;
if a > ... then
  Shape2.Visible := true;
if a > ... then
  Shape3.Visible := true;

[edit] @fkerber: Wie würdest du das mit case schreiben?

[Luckie]

Und warum ist a vom Typ Real. Integer scheint es doch auch zu tun.

Delphi-Quellcode:

var
  a: Integer;
begin
  case a of
    0..89:;
    90..169:;
    260..349:;
    ...;
end;

[Die Muhkuh]

Zitat von Khabarakh:

[edit] @fkerber: Wie würdest du das mit case schreiben?

Wenn du immer zwei Werte hast:

Delphi-Quellcode:

case Integer of
  0..142: machdas;
  143..938: machdies;
  939..1342: machjenes;
end;

[edit] Jetzt war der Michael schon wieder schneller :grummel: [/edit]

[Khabarakh]

Und mit einem nicht ordinalen Typ ?
Okay, kann natürlich sein, dass es in diesem Fall Integer auch tut.

[alzaimar]

klappt sowieso alles nicht, was ihr hier vorschlagt. Irgendwann sind alle drei shapes sichtbar. Entweder vor dem Case alle Shapes erstmal unsichtbar machen, oder gleich so::

Delphi-Quellcode:

Shape1.Visible := (e < 50);
Shape2.Visible := not Shape1.Visible and (e < 70);
Shape3.Visible := not (Shape2.Visible or Shape3.Visible);

Fur e = 0..49 ist S1 an, S2 (wg Not S1) Aus und S3 auch (wg. S1 = True)
Fur e = 50..69 ist S1 aus, dafür S2 an und S3 nicht.
Sonst ist S1 aus, S2 auch, aber nun ist S3 an.

(Hoffentlich ist das jetzt hier richtig, sonst mach ich mich noch zum Horst)

[Vader]

hallo,

danke für eure tipps, der erste hat schon funktioniert !
mfg vader