Extended does not have 19-20 significant digits.

Hi,
if you load a extended vatiable with an integer of 18 digits to than the extended variable has wrong content.

The strange thing is, that this was in Delphi1 no problm! But in Delphi6.


Any hint?

Regards
nmm

program i64ext;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.


UNIT1.PAS:=====================
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit7: TEdit;
    Label7: TLabel;
    Edit8: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var e,f,g:extended;ok:integer;
    i64:int64;
    s:string;
    DecVal: TFloatRec;
begin
 val(edit1.Text,e,ok);
 f:=StrToFloat(edit1.Text);
 edit3.Text:=inttostr(ok);
 str(e:18:0,s);
 edit2.Text:=s;
 val(edit1.Text,i64,ok);

 edit8.Text:=inttostr(i64);

 edit4.Text:=FloatToStrF(e,ffFixed,20,18);
 str(f:18:0,s);
 edit5.Text:=s;
 edit6.Text:=FloatToStrF(f,ffFixed,20,18);

 FloatToDecimal(DecVal,e,fvExtended,20, 20);
 edit7.Text:=decval.Digits;
 g:=123451234512345123;
 str(g:18:0,s);
 edit9.Text:=s;
end;

end.
UNIT1.PAS======================

UNIT1.DFM=========================
object Form1: TForm1
  Left = 229
  Top = 103
  Width = 696
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 96
    Top = 200
    Width = 134
    Height = 13
    Caption = 'FloatToStrF(e,ffFixed,20,18);'
  end
  object Label2: TLabel
    Left = 176
    Top = 176
    Width = 55
    Height = 13
    Caption = 'str(e:18:0,s)'
  end
  object Label3: TLabel
    Left = 256
    Top = 128
    Width = 174
    Height = 13
    Caption = 'e ergibt sich aus: val(edit1.Text,e,ok)'
  end
  object Label4: TLabel
    Left = 256
    Top = 144
    Width = 117
    Height = 13
    Caption = ' f:=StrToFloat(edit1.Text)'
  end
  object Label5: TLabel
    Left = 176
    Top = 240
    Width = 52
    Height = 13
    Caption = 'str(f:18:0,s)'
  end
  object Label6: TLabel
    Left = 104
    Top = 264
    Width = 128
    Height = 13
    Caption = 'FloatToStrF(f,ffFixed,20,18)'
  end
  object Label7: TLabel
    Left = 8
    Top = 304
    Width = 214
    Height = 13
    Caption = 'FloatToDecimal(DecVal,e,fvExtended,20, 20)'
  end
  object Label8: TLabel
    Left = 120
    Top = 336
    Width = 102
    Height = 13
    Caption = ' val(edit1.Text,i64,ok)'
  end
  object Label9: TLabel
    Left = 40
    Top = 24
    Width = 59
    Height = 13
    Caption = 'e,f:extended'
  end
  object Label10: TLabel
    Left = 40
    Top = 40
    Width = 40
    Height = 13
    Caption = 'i64:int64'
  end
  object Label11: TLabel
    Left = 8
    Top = 368
    Width = 187
    Height = 13
    Caption = ' g:=123451234512345123; str(g:18:0,s)'
  end
  object Edit1: TEdit
    Left = 168
    Top = 88
    Width = 225
    Height = 21
    TabOrder = 0
    Text = '123451234512345123'
  end
  object BitBtn1: TBitBtn
    Left = 432
    Top = 88
    Width = 75
    Height = 25
    Caption = 'BitBtn1'
    TabOrder = 1
    OnClick = BitBtn1Click
  end
  object Edit2: TEdit
    Left = 240
    Top = 176
    Width = 225
    Height = 21
    TabOrder = 2
  end
  object Edit3: TEdit
    Left = 168
    Top = 128
    Width = 49
    Height = 21
    TabOrder = 3
  end
  object Edit4: TEdit
    Left = 240
    Top = 200
    Width = 225
    Height = 21
    TabOrder = 4
  end
  object Edit5: TEdit
    Left = 240
    Top = 240
    Width = 225
    Height = 21
    TabOrder = 5
  end
  object Edit6: TEdit
    Left = 240
    Top = 264
    Width = 225
    Height = 21
    TabOrder = 6
  end
  object Edit7: TEdit
    Left = 240
    Top = 304
    Width = 225
    Height = 21
    TabOrder = 7
  end
  object Edit8: TEdit
    Left = 240
    Top = 336
    Width = 225
    Height = 21
    TabOrder = 8
  end
  object Edit9: TEdit
    Left = 240
    Top = 368
    Width = 225
    Height = 21
    TabOrder = 9
  end
end
UNIT1.DFM=========================