>= bei real?

[Chegga]

Hi,

Delphi-Quellcode:

if ((x * x) > a) or ((x * x) = a) then
//...

Umständlicher geht es auch nicht mehr...
So geht es bei mir auch problemlos:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  x,a: real;
begin
  if (x * x) >= a then
  //...
end;

MfG Marc