Float-Literale sind unumstößlich Extended?

[Stevie]

Delphi-Quellcode:

{$APPTYPE CONSOLE}

uses
  SysUtils,
  TypInfo;

type
  TypeHelper = record
    class function TypeOf<T>(const value: T): string; static;
  end;

class function TypeHelper.TypeOf<T>(const value: T): string;
begin
  Result := PTypeInfo(TypeInfo(T)).Name + ' kind: ' + GetEnumName(TypeInfo(TTypeKind), Ord(GetTypeKind(T))) + ' size: ' + SizeOf(T).ToString;
end;

const
  c = 3.14;
begin
  Writeln(TypeHelper.TypeOf(3.15));
  Writeln(TypeHelper.TypeOf(c));
  Readln;
end.

Außerdem kompiliert das hier nicht:

Zitat von himitsu:

Delphi-Quellcode:

const
  kFeetToMeter = Double(3.2808);