Enum gesetzt?

[mc-bain]

Hallo,
ich habe ne recht triviale Frage. Kann man in Delphi überprüfen, ob ein Enum gesetzt wurde?
Ich habe folgenden Enum:

Code:

Status = (aktiv,inaktiv)

Und folgende Klasse:

Code:

TMyClass = class(Tobject)
  private 
    FStatus: Status;
  published
    Status: Status read FStatus write FStatus
end;

Wenn ich mir nun über folgenden Code den Status als String anzeigen lassen möchte zeigt er mir immer "aktiv" an, obwohl ich den Wert händisch nicht gesetzt habe:

Code:

...
var: myClass: TMyClass;
begin
  myClass = TMyClass.Create;
  ShowMessage(GetEnumName(TypeInfo(Status),Integer(myClass.Status)));

  myClass.Free;

end;

Kann mir diesbezüglich jemand weiterhelfen? Oder muss ich quasi immer einen DefaultWert als Enum-Option mit aufnehmen?

Vielen Dank.
mc

[DeddyH]

Was hast Du erwartet? Private Felder werden AFAIK immer mit dem Wert initialisiert, der 0 entspricht (also 0, nil, Leerstring, etc.). Wenn Du einen abweichenden Enum-Wert vorbelegen möchtest, kannst Du das im Konstruktor Deiner Klasse tun.

[Bummi]

active ist ORD 0, Klassenvariablen werden immer mit 0 initialisiert, Du könntest gegf. noch ein undefined vor Dein active einbauen ....

[mc-bain]

Vielen Dank für eure Antworten.

@Bummi: sponatan hätte ich es auch so gelöst.
@DeddyH: wie setzte ich im Constructor den ein Enumeigenschaft auf einen abweichenden Enum-Wert?

[DeddyH]

Delphi-Quellcode:

constructor TMyClass.Create;
begin
  FStatus := inaktiv;
end;

That' s all.

[Ralf Kaiser]

Oder, noch einfacher:

Code:

  Status = (inaktiv,aktiv)

(In der Annahme, dass "inaktiv" als "Voreinstellung" gelten soll)

[mc-bain]

Ach jetzt verstehe ich dich, ich dachte du meinst mit abweichenden Enum-Wert einen Wert, der nicht in der Aufzählung enthalten ist. Hab mich schon gewundert, das würde ja eigentlich dem ganzen System des Enums widersprechen.

Dann muss ich wohl einen "undefined" als Kennzeichnung einfügen.

Vielen Dank euch.

[himitsu]

Wenn du wissen willst, ob was gesetzt wurde, dann mußt du dir dieses auch "zusätzlich" merken.

Oder du führst einen weiteren Status ein.

Delphi-Quellcode:

type
  Status = (nicht_gesetzt, aktiv, inaktiv);

Alternativ mal in die TStringList schauen, welches mehrfach Version 1 implementiert hat:

Delphi-Quellcode:

type
  TStringsDefined = set of (sdDelimiter, sdQuoteChar, sdNameValueSeparator, sdLineBreak, sdStrictDelimiter);

  TStrings = class(TPersistent)
  private
    FDefined: TStringsDefined;
    FLineBreak: string;
    function GetLineBreak: string;
    procedure SetLineBreak(const Value: string);
  public
    property LineBreak: string read GetLineBreak write SetLineBreak;
  end;

function TStrings.GetLineBreak: string;
begin
  if not (sdLineBreak in FDefined) then
    LineBreak := sLineBreak;
  Result := FLineBreak;
end;

procedure TStrings.SetLineBreak(const Value: string);
begin
  if (FLineBreak <> Value) or not (sdLineBreak in FDefined) then
  begin
    Include(FDefined, sdLineBreak);
    FLineBreak := Value;
  end
end;