Eigene Flags/Typen definieren (??)

[Char]

Hallo,

ich habe mal wieder ein kleines Problem:


Ich habe eine Prozedur, der ich mehrere Parameter übergebe.

Beispiel:

Delphi-Quellcode:

procedure procedure1(integer1, integer2: integer; string1: string; mytype1: mytype);

Das Problem dabei ist das "mytype". Ich möchte die Prozedur z.B. so aufrufen können:

Delphi-Quellcode:

procedure1(500,1000,'hallo',ja);

Wie man sieht ist "ja" weder ein string, noch eine Zahl. Was ist das also dann?

Ich möchte einen Typ definieren, der also zum Beispiel nur die Werte "ja", "nein", "beides" und "manchmal" annehmen kann. Das aber eben nicht als string (also ohne "")...

Auf diese Werte wird innerhalb der Prozedur per 'case..of' zugegriffen.

Delphi-Quellcode:

case mytype1 of
 ja: ... ;
 nein: ... ;
usw.

Ich denke das, was ich will, ist am ehesten mit den "Flags" bei manchen Prozeduren zu vergleichen, die ja auch keine Strings darstellen.

Wie mache ich das?

Ich hoffe die Frage ist verständlich, doofere Beispiele sind mir einfach nicht eingefallen :roll: .

[mirage228]

Delphi-Quellcode:

type
  MyType = (ja, nein, beides, manchmal);

mfG
mirage228

[neolithos]

Flags währen das:

Delphi-Quellcode:

type
  TMyType = (ja, nein);
  TMyTypes = set of TMyType;


var t : TMyTypes;

t := [ja, nein];
t := [ja];
t := [nein];
t := [];

[Char]

Ich danke euch beiden :)

[fkerber]

Hi!

Mal so als Frage zwischendurch:
Ist es sinnvoll, da eigene Typen zu definieren oder würde dann nicht besser z.B. Integer übergeben und die dann mit case of "aufschlüsseln".

Ciao fkerber

[neolithos]

Das ist Ansichtssache!

Denn intern wird sowieso nur mit 4 Byte-Werten gearbeitet.

Ich verwende lieber die Typen da dieser Code besser lesbar ist!

Dafür sind die Typen manchmal kompliziert.