if then

[Sharky]

Zitat von nailor:

man kann imho mit if ... then ... else die sache sogar noch schöner darstellen.

Wenn es um "Schönheit" geht und sichergestellt ist das es nur 2 Nachkommastelle gibt:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  foo : Integer;
begin
  try
    foo := Trunc (StrToFloat(Edit7.text) * 100);
    case foo of
      0..90042 : Label9.Caption := '<= 900,42';
      90043..209933 : Label9.Caption := '<= 2099,33';
      209934..426600 : Label9.Caption := '<= 4266,00';
    else
      Label9.Caption := 'größer';
    end;
  except
    ShowMessage('Ungültige Eingabe');
  end;
end;