Double in zwei Integer

[Christian Seehase]

Moin Zusammen,

nur der Vollständigkeit halber mal die Version mit varianten Teilen in Records:

Delphi-Quellcode:

type
  TSplitDouble = record
    case boolean of
      true : (dblValue : Double);
      false : (iHigh : integer;
               iLow  : integer;);
  end;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

var
  sdWork : TSplitDouble;

begin
  sdWork.dblValue := 129090.0075709;
  ShowMessage(IntToStr(sdWork.iHigh)+#13#10+IntToStr(sdWork.iLow));
end;