1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

procedure WasIstHierLos;
var
  ADOConnection: TADOConnection;
  ExtVal1, ExtVal2, ResExtVal: Extended;
  ResDoubleVal: Double;
begin
  ExtVal1 := 0.2;
  ExtVal2 := 0.5;

  ResDoubleVal := ExtVal1 / ExtVal2;
  ResExtVal := ExtVal1 / ExtVal2;
  if ResDoubleVal = ResExtVal then      { Hier ist ResDoubleVal <> ResExtVal ! }
    Exit;

  try
    ADOConnection := TADOConnection.Create(NIL);
    ADOConnection.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
          'Test.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False';
    ADOConnection.Open;
    ADOConnection.Close;
    FreeAndNIL(ADOConnection);

    ResDoubleVal := ExtVal1 / ExtVal2;
    ResExtVal := ExtVal1 / ExtVal2;
    if ResDoubleVal = ResExtVal then     { Hier ist ResDoubleVal = ResExtVal ! }
      Exit;

    // Die Stelle wird nie mehr erreicht, aber warum ?
    // ...

  except
    //...
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Var
  a,b, c1, c2, diff : Extended;

Begin
  a := 0.2;
  b := 0.5;
  c1 := a/b;
  CreateOpenAndDestroyADOConnectionWithJETModule;
  c2 := a/b;

  diff := c1-c2;
  Showmessage(FloatToStr(diff));
End;