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?