enum-Typ und array

[p80286]

hallo zusammen,
ich steh mir gerade selbst auf den Füßen.
Für einen Enum-Typen möchte ich auch gleich den Klartext zur Hand haben:

Delphi-Quellcode:

type
 tEVType = (EVUndef,EVAusz,EVPausch,EVProduct);

const
  cEVType:array [min(tEVType)..max(tEVType)]=('EVundef','EVAusz','EVPausch','EVProduct');

var
  myev : tEVType;

....

 writeln(cEVTYPE[myEV]);
.....

Geht das überhaupt?

Gruß
K-H

[Ghostwalker]

jap:

Delphi-Quellcode:

  const cEvType : array[TevType] of String = ('EVundef','EVAusz','EVPausch','EVProduct');

[p80286]

Danke!

Gruß
K-H

[SneakyBagels]

Zitat:

Für einen Enum-Typen möchte ich auch gleich den Klartext zur Hand haben:

Wieso wandelst du den Enum nicht in einen String um? Das vermeidet doppelte "Buchführung"

[Ghostwalker]

Weil man den String im Regelfall nur zur Ausgabe hin benötigt. Wenn man das ganze z.B. in einer DB speichern möchte, reicht ein Byte (oder Integer)-Feld.

Alles eine Frage der Effizients :)

[SneakyBagels]

Zitat:

Wenn man das ganze z.B. in einer DB speichern möchte, reicht ein Byte (oder Integer)-Feld.

Nirgendwo steht aber, dass er in eine Datenbank schreiben möchte.

[Ghostwalker]

Richtig, das war aber auch nur ein Beispiel.

Es ging aber auch nicht darum den Enum zu elemenieren.

[himitsu]

Und warum nicht Delphi das in einen String umwandeln lassen?

GetEnumName / GetEnumValue (TypInfo)
TRttiEnumerationType.GetName / TRttiEnumerationType.GetValue (RTTI, allerding ist das in XE private, aber klang so, als wenn sich das geändert hat ... ist eh eine saudumme Idee und ich hab sowas schon seit Jahren für mich selbst gebaut ... die ollen Nachmacher :stupid:)

Solange keiner auf die doofe Idee kommt und den Enum manuell indiziert, gibt es auch die nötigen RTTI-Infos.
Also nicht bei

Delphi-Quellcode:

type tEVType = (EVUndef=123,EVAusz,EVPausch,EVProduct);

.

[Ghostwalker]

Stimmt...is sogar einfacher :)

[p80286]

Gute Idee!
Da ich aber an z.B "EVAusZ" noch weitere Strings hängen habe, u.a. SQL-Abfragen, ist die erstgenannte Lösung genau das richtige.

Gruß
K-H

[haentschman]

Hallöle...:P

Zitat:

SQL-Abfragen

...das will ich sehen. :shock: ...mit 300 Statements incl. kompletter Scripte. Imho ist ein Enum/Array denkbar ungeeignet zum "Speichern" von SQL.

Wenn du die SQL extern lagern willst schau das das Tutorial an. :thumb: http://www.delphipraxis.net/49505-sq...einbinden.html
Vom mir aus könntest du auch den Ressorcenname des SQL im Enum/Array hinterlegen. Die eigentlichen Statements liegen extern in der Ressource.

[p80286]

Wie kommst Du auf 300?
:shock:

Gruß
K-H

[haentschman]

:P Scherz...
Aber bei einem Statement wird es nicht bleiben. :wink: Je komplizierter die Statements werden, umso unübersichtlicher wird der QT. :? Ab wann entscheidest du dich dann für eine andere Lösung weil die Aktuelle nicht mehr reicht? Warum sich nicht gleich für eine Lösung entscheiden die sowohl mit einem Statement als auch mit 300 (:wink:) klar kommt? Der einmalige zusätzliche Aufwand ist in max. 2 Stunden erledigt und hat ca. 20 Zeilen. :wink:

Delphi-Quellcode:

function TDatabase.GetSQLByName(SQLName: string): string;
var
  SQLStream: TResourceStream;
  SQLStrings: TStringList;
begin
  Result := '';
  SQLStrings := TStringList.Create;
  try
    SQLStream := TResourceStream.Create(HInstance, SQLName, PWideChar(Ord(DatabaseTyp)));
    try
      try
        SQLStrings.LoadFromStream(SQLStream);
        Result := SQLStrings.Text;
      except
        Result := '';
      end;
    finally
      SQLStream.Free;
    end;
  finally
    SQLStrings.Free;
  end;
end;

Name rein...Statement raus. :thumb:

[himitsu]

Ach ja, dann gibt es auch noch IntToIdent und IdentToInt,
was z.B. für die Umwandulng von TColor <-> Integer verwendet wird, also in ColorToString und StringToColor,
oder als IdentToCursor.

Falls sich schon mal jemand gefragt hat, wie die Farbnamen und Cursornamen in den OI und die DFM kommen.

Delphi-Quellcode:

if IdentToInt(VonString, AlsInteger, DasMapping) then
  AlsEnum := TDeinEnum(AlsInteger)  // geht auch direkt, wenn der Enum 4 Byte groß ist, also genug Werte enthält (ab 16.777.215) oder siehe {$MINENUMSIZE 4}
else
  AlsEnum := ...;  // oder eine Exception


if not IntToIdent(Ord(VonEnum), AlsString, DasMapping) then
  AlsString := 'nö';  // oder eine Exception

[freimatz]

Zitat:

Zitat von himitsu (Beitrag 1370896)

Und warum nicht Delphi das in einen String umwandeln lassen?
GetEnumName / GetEnumValue (TypInfo)

Weil das extrem gefährlich ist. Wenn man den String z.B. in eine Configurationsdatei schreibt und wieder einliest
und dazu noch den Aufzählungstyp umbenannt ist die Software nicht mehr kompatibel.