if-anweisung

[Schaedel]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var zahl1, zahl2 : Real;
begin
  zahl1 := StrToFloat(edit1.text);
  zahl2 := StrToFloat(edit2.text);

  if zahl1 > Zahl2 then
    label1.caption := 'kleiner'
  else
    label1.caption := 'größer oder gleich';
end;

jetz passt es