if then

[Sharky]

Hai coolchatter,

ausser das man nicht die Strings vergleichen sollte brauchst Du die "and-Bedingung" nicht da diese durch die IF-Logik ereicht ist.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  foo : Real;
begin
  try
    foo := StrToFloat(Edit7.text);
    if (foo >  0)  then
    begin
     Label9.Caption := '<= 900,42';
    end;
    if (foo > 900.42) then
    begin
      Label9.Caption := '<= 2099,33';
    end;
    if (foo >  2099.33) then
    begin
      Label9.Caption := '<= 4266,00';
    end;
    if (foo >  4266.00) then
    begin
      Label9.Caption := 'größer';
    end;
  except
    ShowMessage('Ungültige Eingabe');
  end;
end;

[coolchatter]

Danke Sharky für den Code, hat mir weitergeholfen.

[nailor]

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

[Sharky]

Zitat:

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;