Salut

Pour une fois que j'essaie de manipuler des pointeurs, ça foire
Voici le 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
type
  PString=^string;
  TGagnants=set of TJoueur;
(...)

function vainqueur:TGagnants;
begin
  result:=[];
  if(ansicontainsstr(jeuh,'VVVV'))
  or(ansicontainsstr(jeuh,'RRRR'))
  then stringjeu:=@jeuh
  else if(ansicontainsstr(jeuv,'VVVV'))
       or(ansicontainsstr(jeuv,'RRRR'))
       then stringjeu:=@jeuv
       else if(ansicontainsstr(jeud,'VVVV'))
            or(ansicontainsstr(jeud,'RRRR'))
            then stringjeu:=@jeud
            else if(ansicontainsstr(jeuf,'VVVV'))
                 or(ansicontainsstr(jeuf,'RRRR'))
                 then stringjeu:=@jeuf
                 else exit;

  if(ansicontainsstr(stringjeu^,'VVVV'))
  then result:=[vert];
  if(ansicontainsstr(stringjeu^,'RRRR'))
  then result:=[rouge];
  if((result=[])and(not ansicontainsstr(jeuh,' ')))
  then result:=[aucun];
end;
L'EDI compile sans pb mais ça plante sur la ligne soulignée
avec lecture de l'adresse 2D2D2D48

Si qqn a une idée lumineuse (c'est la période)... Merci