Salut
Pour une fois que j'essaie de manipuler des pointeurs, ça foire
Voici le code
L'EDI compile sans pb mais ça plante sur la ligne soulignée
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;
avec lecture de l'adresse 2D2D2D48
Si qqn a une idée lumineuse (c'est la période)... Merci
Partager