TMeinSet(Byte(1)) in Variable > ungültige Typumwandlung

[DieDolly]

Das kann ich nicht, da es sich hier um Firmencode handelt. Der ist 1 zu 1 gleich. Nur die Variablennamen sind anders (Wochentage).

[Union]

Dann bau doch ein Beispiel das man compilieren kann, und welches nur aus Deklaration und Zuweisung besteht. Damit verletzt Du dann auch keine Firmengeheimnisse.

[DieDolly]

Zitat:

Dann bau doch ein Beispiel das man compilieren kann, und welches nur aus Deklaration und Zuweisung besteht.

Wenn ich es schaffen würde irgendwas zum Kompilieren zu bringen, würde ich nicht hier um Hilfe bitten

Hier ist der Code aus dem funktionierenden Projekt. Eins zu eins rauskopiert. Andere Variablennamen aber das ist egal denn die Originalnamen lassen sich auch nicht kompilieren.

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}
{$R *.res}

uses
 System.SysUtils;

type
 TDOF = (d1, d2, d3, d4, d5, d6, d7);
 TDOFSet = set of TDOF;

type
 TGroups = (g1, g2, g3);
 TGroupSet = set of TGroups;

var
 Days: TDOFSet;
 GroupSet: TGroupSet;

begin
 Days := TDOFSet(Byte(2));

 GroupSet := TGroupSet(Byte(2));

end.

Das iwr auf das absolute Minimum reduziert und es funktioniert nicht. Irgendwo ist da doch ein Loch im Köse zuviel!

[Fritzew]

Compilersettings
MinEnumSize steht da wahrscheinlich falsch Word oder Double Word und nicht auf Byte
im deutschen Delphi "Mindestgrösse für Enum"

[DieDolly]

Ich hatte gehofft, das ist es. Aber das steht leider auf Byte
Das einzige was anders ist "Optimierung" steht auf False.
Aber mit True gehts auch nicht.

Ich bekomme langsam einen Affen. Wie kann EINE Zeile Code so falsch sein und in einem anderen Projekt seit Jahren korrekt?

Ich habe gerade aber mal den Code vom Eingangsbeitrag in das funktionierende Projekt kopiert. Es funktioniert nicht!
Liegt das an der Hitze?

Mit anderen Namen gehts nicht.

Delphi-Quellcode:

type
 TABC = (g1, g2, g3);
 TABCSet = set of TABC;

var
 ABCSet: TABCSet;

begin
 ABCSet := TABCSet(Byte(1));

[Der schöne Günther]

Bist du dir sicher dass du nicht in Wirklichkeit GroupSet := [TGroups(2)]; meintest?

[DieDolly]

Was ich vor habe.

In irgendeiner Datei steht eine Zahl 3. Oder irgendeine andere. Welche ist egal.
Die 3 steht in diesem Fall für g2 und g3 zusammen. Glaube ich jedenfalls. Das ist aber auch alles total egal denn in einem anderen Projekt funktioniert das mit Wochentagen seit Jahren. Ich habe ein Set of TWochenTage beginnend mit Montag und statt eine lange Liste von Wochentagen als string speichere ich die angeklickten Werte als Byte Wert ab.
Einfacher gesagt speichere ich die Byte-Werte der Indexe der Enums ab und prüfe später mit in ob Enum 123 in diesem Wertebereich liegt.

GroupSet := [TGroups(2)] So habe ich es noch nie gemacht und das lässt sich auch nicht kompilieren. So wie es im Eingangspost steht mache ich das seit Jahren aber wieso funktioniert das jetzt nicht mehr? Das ist doch verhext!

Von Stackoverflow habe ich dieses Beispiel rauskopiert und in einer leeren Konsolenanwendung übernommen. Was erhalte ich? Ja, eine ungültige Typumwandlung. Ich habe absolut keine Ahnung mehr woran das liegen soll

Delphi-Quellcode:

type
  TXSamples = set of TXSample;
var 
  XSamples: TXSamples;
begin
  ValueToStoreInDB := Integer(XSamples);
  Integer(XSamples) := ValueReadFromDB;
end;

Wer mir nicht glaubt, versucht es selbst. Hier ist die minimale Anwendung

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}
{$R *.res}

uses
 System.SysUtils;

type
 TGroups = (g1, g2, g3);
 TGroupSet = set of TGroups;


var
 GroupSet: TGroupSet;

begin
 GroupSet := TGroupSet(Byte(2));
end.

[jottkaerr]

Bist Du sicher, dass Du auch früher schon Integer-Literale direkt gecastet hast? Wenn ich statt

Delphi-Quellcode:

var
  GroupSet: TGroupSet;
begin
  GroupSet := TGroupSet(Byte(2));
end.

Delphi-Quellcode:

var
  b: Byte;
  GroupSet: TGroupSet;
begin
  b := 2;
  GroupSet := TGroupSet(b);
end.

schreibe, funktioniert's.

[Klaus01]

.. mit welcher Delphi Version funktioniert es denn?
Habe es gerade mit Delpi XE getestet - "Invalid typecast"

Grüße
Klaus