Discussion :

[Nanocom]

Hellow, je rencontre un problème assez embêtant avec la SDL : je reçois un superbe message d'erreur lorsque je lance le programme (la fenêtre SDL s'ouvre quand même et fonctionne normalement), et aucune erreur détectée pendant la compilation. Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
program test;
 
{$APPTYPE GUI}
 
uses sdl;
 
procedure pause();
var continuer : boolean;
    event : PSDL_Event;
begin
	continuer := true;
	event := NIL;
	while (continuer) do
	begin
        SDL_WaitEvent(event);
        case (event^.type_) of
			SDL_QUITEV : continuer := false;
			SDL_KEYDOWN : continuer := false;
        end;
    end;
end;
 
begin
 
SDL_Init(SDL_INIT_VIDEO);
SDL_SetVideoMode(640, 480, 32, SDL_HWSURFACE);
pause();
SDL_Quit();
 
end.

J'ai transposé la procedure pause() proposée dans un tuto écrit en C.

Quel est le problème ? Merci !

Edit : apparemment, le problème se situe au niveau du "case of" de la procedure pause() (d'après Lazarus).

[Nanocom]

Mon problème est résolu : ma procédure pause est devenue :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure pause();
var continuer : boolean;
    event : TSDL_Event;
begin
	continuer := true;
	while continuer do
	begin
        SDL_WaitEvent(@event);
        case (event.type_) of
              SDL_QUITEv : continuer := false;
        end;
	end;
end;

Je ne sais pas ce que signifie le @ dans @event, mais ça fait marcher le truc.

[Alcatîz]

Bonjour,

Je ne sais pas ce que signifie le @ dans @event

@ signifie "l'adresse de".

SDL_WaitEvent attend en effet l'adresse d'une structure TSDL_Event.