C/C++ enum in Pascal

[Mathias]

Ist so etwas auch mit Pascal möglich ?

Code: Alles auswählen

enum KeyPressSurfaces {
	KEY_PRESS_SURFACE_DEFAULT,
	KEY_PRESS_SURFACE_UP,
	KEY_PRESS_SURFACE_DOWN,
	KEY_PRESS_SURFACE_LEFT,
	KEY_PRESS_SURFACE_RIGHT,
	KEY_PRESS_SURFACE_TOTAL};
	
SDL_Surface* gKeyPressSurfaces[ KEY_PRESS_SURFACE_TOTAL ];	

Der Zugriff später erfolgt so:

Code: Alles auswählen

	gCurrentSurface = gKeyPressSurfaces[ KEY_PRESS_SURFACE_UP ];

Ich habe folgendes probiert, aber ohne Erfolg:

Code: Alles auswählen

  KeyPressesSurface: set of (KEY_PRESS_SURFACE_DEFAULT, KEY_PRESS_SURFACE_UP, KEY_PRESS_SURFACE_DOWN, KEY_PRESS_SURFACE_LEFT, KEY_PRESS_SURFACE_RIGHT, KEY_PRESS_SURFACE_TOTAL);
  gKeyPressSurfaces:array [0..KEY_PRESS_SURFACE_TOTAL-1]of PSDL_Surface;  

Es kommt nur "Error: Incompatible types: got "<enumeration type>" expected "Int64""

Der einzige weg sehe ich momentan so:

Code: Alles auswählen

const
	KEY_PRESS_SURFACE_DEFAULT = 0;
	KEY_PRESS_SURFACE_UP = 1;
	KEY_PRESS_SURFACE_DOWN = 2;
	KEY_PRESS_SURFACE_LEFT = 3;
	KEY_PRESS_SURFACE_RIGHT = 4;
	KEY_PRESS_SURFACE_TOTAL = 5;

[theo]

Hatte mal kürzlich einen Frage im Bugtracker gestellt zu dem Thema.
Dort siehst du zwei Möglichkeiten.
https://gitlab.com/freepascal.org/lazar ... sues/39988
Aber frag mich nicht...

[Winni]

Hi!

Definier doch erstmal den Enum Type:

Code: Alles auswählen

Type
TKeyPressSurfaces =(
	KEY_PRESS_SURFACE_DEFAULT,
	KEY_PRESS_SURFACE_UP,
	KEY_PRESS_SURFACE_DOWN,
	KEY_PRESS_SURFACE_LEFT,
	KEY_PRESS_SURFACE_RIGHT,
	KEY_PRESS_SURFACE_TOTAL);

Dann das Set und das Array:

Code: Alles auswählen

Type
  TKeyPressesSet: set of TKeyPressSurfaces;
  TKeyPressArray:array [TKeyPressSurfaces] of PSDL_Surface;

Einfach mal drann gewöhnen, das Pascal nicht C++ ist.
Sonst kommt es eben zu den Fehlern, wenn man versucht C++ nachzuplappern.

Und selbstdefinierte Typen fangen mit "T" an.

Winni

[Mathias]

@Winni
Danke, dies hat schon mal weiter geholfen.

Nur das Aufräumen sieht etwas komisch aus. Elegant nur mit "i" geht es leider nicht.

Code: Alles auswählen

    for i := 0 to Length(gKeyPressSurfaces) - 1 do begin
      SDL_FreeSurface(gKeyPressSurfaces[TKeyPressesSurface(i)]);
    end;

Da kann man fast besser einen Record nehmen, auch wen man die Elemente beim Aufräumen einzeln ansprechen muss.
Beim Initialisieren und bei der Abfrage ist es jetzt schon einzeln.

Oder kennt einer noch etwas eleganteres ?

[Winni]

Hi!

Code: Alles auswählen

var e: TKeyPressesSurfaces;

For e := low(TKeyPressesSurfaces) to high(TKeyPressesSurfaces) do
    SDL_FreeSurface(gKeyPressSurfaces[e]);

Pascal kann wesentlich eleganter sein, als die Sprachen mit geschweiften Klammern.

Winni

[PascalDragon]

Noch einfacher:

Code: Alles auswählen

var
  surface: PSDL_Surface;
// ...
  for surface in gKeyPressSurfaces do
    SDL_FreeSurface(surface);

[Winni]

Noch einfacher:

Sehr gut!

Irgendwann gewöhn ich mich auch noch an den "neumodischen Kram".

Winni

[Warf]

Kurz zur Erläuterung, C Enums sind was komplett anderes als Pascal enums, in C ein ENUM ist nichts anderes als eine Reihe von Konstanten des Typs int (tatsächlich die einzige echte Form von konstanten die es in C überhaupt gibt)

Beispiel:

Code: Alles auswählen

enum Test {A, B, C};

Ist equivalenz zu dem Pascal code

Code: Alles auswählen

const A = 0;
const B = 1;
const C =2;

Von daher ist deine ursprüngliche lösung tatsächlich das echte C equivalenz.

Pascal enums im gegensatz dazu sind echte eigene typen und benötigen daher explizites konvertieren

Code: Alles auswählen

TTest = (A, B, C);
Ord(A) = 0
TTest(0) = A

[Mathias]

Noch einfacher:

Code: Alles auswählen

var
  surface: PSDL_Surface;
// ...
  for surface in gKeyPressSurfaces do
    SDL_FreeSurface(surface);

Coole Funktion. Einziges Manke, man kann der Variable nichts zuordnen.

Code: Alles auswählen

    for surface in gKeyPressSurfaces do begin
      SDL_FreeSurface(surface);
      surface := nil;  // Geht nicht
    end;

[PascalDragon]

Coole Funktion. Einziges Manke, man kann der Variable nichts zuordnen.

Code: Alles auswählen

    for surface in gKeyPressSurfaces do begin
      SDL_FreeSurface(surface);
      surface := nil;  // Geht nicht
    end;

Das ist korrekt und auch so Absicht. Da du allerdings alle Einträge löscht kannst du genauso am Schluss folgendes machen:

Code: Alles auswählen

FillChar(gKeyPressSurfaces, SizeOf(gKeyPressSurfaces), #0)