Delphi darf man das? - Delphi-PRAXiS

Thema durchsuchen

Ansicht

Themen-Optionen

darf man das?

Ein Thema von Leuselator · begonnen am 5. Nov 2009 · letzter Beitrag vom 6. Nov 2009

Vorheriger Beitrag

Nächster Beitrag

Leuselator

Registriert seit: 18. Mär 2003
Ort: Berlin
589 Beiträge

Delphi 8 Architect

darf man das?

5. Nov 2009, 00:12

Was haltet ihr von folgendem Code?

zusammenfalten · markieren

Delphi-Quellcode:

			type

TMoeglicheProbleme = (mpKleinesProblem,mpMittleresProblem,mpGrossesProblem);

TProblemSammlung = set of TMoeglicheProbleme;

var

MeineProbleme :TProblemSammlung;

MeinProblemCast : Longword;

begin

  MeineProbleme := [mpKleinesProblem,mpMittleresProblem];

  MeinProblemCast := Longword(pointer(@Meinproblem)^); // scheint zu funktionieren...

  MeinProblemCast := 4;

  MeineProbleme := TProblemSammlung(Pointer(@MeinProblemCast)^); // das auch

end;

ernsthafte Einwände?
Gruß

Tim Leuschner
Programmierer = moderner Sysiphos: stets wenn er meint, den Stein seiner Dummheit auf den Berg des Wissens gewuchtet zu haben, erblickt er einen völlig neuen Aspekt und der Dummfels poltert mit Getöse zurück ins Tal der Unwissenheit...