Moin,

steh gerade etwas auf dem schlauch was die Typdekleration angeht. Bin gerade dabei eine aktuelle Delphi Library in Delphi 5 zu portieren (Win7Components) und hier ist eine Typdekleration die in Delphi 5 ungültig ist:

markieren

Code:

type
TdwProgressBarState = [pbstMarquee = 0, pbstNormal = 1, pbstError = 2, pbstPaused = 3];

Diese beschreibt ja eine Menge von Eigenschaften die TdwProgressBarState einnehmen kann, wie definiere ich das unter Delphi 5? Würde da jetzt die Eigenschaften als Konstanten und dann als Menge oder sehe ich das falsch?


Greetz, ThY

Diese Art der Typdeklaration ist mir zwar nicht gelaufig, aber aus dem Bauch heraus würde ich es so versuchen:

markieren

Delphi-Quellcode:

type
  TdwProgressBarStates = (pbstMarquee, pbstNormal, pbstError, pbstPaused);
  TdwProgressBarState = set of TdwProgressBarStates;

Besten Dank, genau das "set of" hatte mir gefehlt

Sicher, dass ein Set hier das richtige ist? Das würde ja bedeuten, dass der Zustand beispielsweise sowohl pbstNormal als auch pbstError zugleich sein kann...
Siehe auch hier

Ich habe nur Menge gelesen und die eckigen Klammern gesehen. Aufgrund der Daten scheinen Kombinationen aber wirklich keinen Sinn zu machen. In dem Fall müsste es so wohl richtiger sein:

markieren

Delphi-Quellcode:

type
  TdwProgressBarState = (pbstMarquee, pbstNormal, pbstError, pbstPaused);

Wieso die Standardwerte im Original mit übergeben werden, entzieht sich allerdings meiner Kenntnis.

Delphi 5 kennt noch keine standardwerte für Enum/Set, aber wie richtig erkannt, sind die hier garnicht nötig, da der erste Wert (ohne Standardwert) immer 0 ist und dann die nachfolgenden hochgezählt werden.

Dann war noch die Klammer falsch.
[ statt )



Und ob nun Set oder Enum richtig sind, das solltest du wirklich mal prüfen.

Wie wird denn dieser Typ, bzw. eine entsprechende Variable später verwendet?

zusammenfalten · markieren

Delphi-Quellcode:

// Enum:
  x := pbstMarquee;
  if x = pbstMarquee then ;


// Set:
  x := [pbstMarquee];
  if x = [pbstMarquee] then ;

  x := [pbstMarquee, pbstError];
  if x = [pbstMarquee, pbstError] then ;

Anhand der Bezeichner pbst... würde ich allerdings auf einen Enum tippen,
also einfach die unnötigen Vorgabewerte weglassen und die richtige Klammer nutzen.