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;