Feststellen dass neuer Typ nur ein Alias ist

[Der schöne Günther]

So verschieden können sie aber wohl doch nicht sein wenn folgendes geht, oder?

Delphi-Quellcode:

type
   TNewType = type Single;
var
   mySingle:   Single;
   myNewType:   TNewType;
begin
   myNewType := mySingle;
   mySingle := myNewType;
end.

[mkinzler]

Für den Delphicompiler schon.

Z.B. ist auch folgendes nicht kompatibel:

Delphi-Quellcode:

type
  TStringArray: Array of string;
...
var
  a1: TStringArray;
  a2: Array of String;

...

  a1 := a2;

[Der schöne Günther]

Die übertriebene Typsicherheit bei Arrays hätte ich spontan als anderes Thema gesehen, aber ich komme frisch aus dem Urlaub- Vielleicht ist mein Kopf noch nicht wieder ganz da.

Heißt das- Der "Delphi-Compiler" kann es, der Mensch vor der Tastatur allerdings nicht? Mann, ich lege einfach zwei lokale Variablen an und weise sie einander zu. Und vergleiche SizeOf(..) . Sollte jemand die Definition für TMyType eines Tages von Single auf Double ändern wird im dieser Code hier um die Ohren fliegen.

Das muss wohl reichen, besser scheint es ja nicht zu gehen.

[uligerhardt]

Zitat von Der schöne Günther:

So verschieden können sie aber wohl doch nicht sein wenn folgendes geht, oder?

Delphi-Quellcode:

type
   TNewType = type Single;
var
   mySingle:   Single;
   myNewType:   TNewType;
begin
   myNewType := mySingle;
   mySingle := myNewType;
end.

Ich glaube, mit var-Parametern solltest du einen Unterschied sehen.

[himitsu]

Zitat von Mikkey:

Delphi-Quellcode:

  ti1 := TypeInfo(myTyp);
  ti2 := typeInfo(Single);
  if ti1.Name <> ti2.Name then

Bei Typen niemals Namen vergleichen. (maximal nur mit voll qualifizierten Namen, also inkl. Namespace)

Nur weil etwas gleich heißt, muß es nicht das Gleiche Selbe sein.
if TypeInfo(myTyp) <> TypeInfo(Single) then