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).