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 ?

zusammenfalten · markieren

Delphi-Quellcode:

var a: real;

begin

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

end;

mfg vader

Hi!

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

Ciao Frederic

Wie wäre es damit ?

markieren

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?

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

markieren

Delphi-Quellcode:

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

Zitat von Khabarakh:

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

Wenn du immer zwei Werte hast:

markieren

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]

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

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::

markieren

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)

hallo,

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