Variant und Single

[Mathias]

Ich wollte estwas mit Variant ausprobieren, da habe ich festgestellt, das der Single als Double erkannt wird.

Code: Alles auswählen

program Project1;

uses
  Variants;

  procedure ProcessVariant(v: variant);
  begin
    case varType(v) of
      varSingle: begin
        Writeln('Single');
      end;
      varDouble: begin
        Writeln('Double');
      end;
      varCurrency: begin
        Writeln('Currency');
      end;
    end;
  end;

var
  f: single = 0;
  d: double = 0;
  e: extended = 0;
  c: currency = 0;

begin
  ProcessVariant(f);  // Double
  ProcessVariant(d);  // Double
  ProcessVariant(e);  // Double
  ProcessVariant(c);  // Curreny  
end. 

Es werden alle Fliesskommazahlen ausser curreny als Double erkannt.
Wieso ist das so?

Als Vorlage habe ich dies genommen: https://wiki.freepascal.org/Variant

[theo]

Warum ist dir das wichtig? Der Speicherbedarf ändert sich dadurch ja nicht.
Das ist bei Delphi auch so:
https://stackoverflow.com/questions/151 ... le-variant

[wp_xyz]

Und ehrlich: Wenn dir wichtig ist, dass eine Variable ein Single ist, dann nimm doch auch genau diesen Typ und nicht den "Wald-und-Wiesen"-Typ variant a la BASIC.