(2*6+1)=0 - Seit heute rechnet mein Programm ab und zu falsch

[Dennis07]

Zitat von Michael II:

Delphi-Quellcode:

      lenar := 2*(maxsc+1);
      if (maxsc > 0) and (lenar = 0)
        then
        begin
          showmessage('m='+maxsc.ToString + ' l='+lenar.ToString);
          lenar := 2*(maxsc+1);
          ShowMessage( lenar.ToString );
        end;

Hat sehr sicher nichts mit dem Problem zu tun, aber falls es sich um Floats handelt, solltest du die Funktionen IsZero , CompareValue und SameValue verwenden.