Welche Zahl ist größer 50, kleiner 60 und gerundet 0?

[himitsu]

die Variable wird vom Compiler wegoptimiert

Delphi-Quellcode:

function TForm1.Test : string; 
var xtest : real; 
begin 
with MyZQuery do 
  try 
    sql.Text:='SELECT * FROM Tabelle'; 
    Active:=True; 
    if (FieldByName(cfGesamtpreis).AsFloat>50.0)and(FieldByName(cfGesamtpreis).AsFloat <60.0) then 
      xtest:=FieldByName(cfGesamtpreis).AsFloat;//in xtest wird hier dauernd 5,2598911262e-307 geschrieben 
    Result:=FieldByName(cfID).AsString; 
  finally            
    Active:=False; 
    end; 
if xtest = 0 then ; // damit sollte es gehn
end;