Transtypage String en Pchar impossible

Bonjour,

Je viens d'installer Delphi et j'ai une erreur de "transtypage incorrect" à la compilation lorsque que je tente de caster un type string en Pchar.


Exemple:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

procedure TForm1.Test(Val:Pchar); begin   end;   procedure TForm1.Button1Click(Sender: TObject); var s:string; begin test(pchar(s));//provoque une erreur de compilation end;

---

Je soupçonne un paramètre de compilation mais je ne vois pas lequel, une idée ?

Sur mon Delphi 7 ça fonctionne parfaitement.

chez moi aussi :? es-tu bien sûr que l'erreur vient de la ligne que tu indiques ?

Si tu es sur une vielle version de Delphi, en effet, ça ne passera pas :wink:


Unclus l'unité SysUtils et sers-toi de la fonction StrPCopy pour transformer ta chaîne en PChar, à l'aide d'un tableau de Char, comme ça :

Code:

---

1 2 3 4 5 6 7

var P: array[0..255] of Char; S: string; begin ... Test(StrPCopy(P, S)); end;

---

Attention à prévoir un tableau de Char de taille suffisante. Sinon, tu peux utiliser une chaîne PChar, mais il fauit lui allouer de la mémoire au préalable :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

var P: PChar; S: string; begin ... { StrAlloc pour allouer la mémoire, +1 pour ne pas oublier le #0 terminal } P := StrAlloc(Length(S) + 1); Test(StrPCopy(P, S)); { On a fini avec P, on libère la mémoire } StrDispose(P); end;

---

@++

Bonjour,

Aller dans "Project/options/compilers" et, dans le panneau "syntax Options", cocher "Extended syntax" (C'est en version US... à traduire en FR ).

Je ne comprends pas vraiment d'où vient le problème, c'est la première fois que ça m'arrive.

Eric Sigoillot, denokan, slimjoe:Je suis sur Delphi7 entreprise et le code que j'ai mis est un exemple minimal destiné à illuster l'impossibilité chez moi de caster en Pchar à la compilation.

Je vais préciser un peu le contexte:
J'ai écrit un programme qui exécute des fonctions contenues dans une DLL, d'où l'utilisation intensive de PChar et de transtypages.
Je récupère le programme et change de domicile quelques jours et installe Delphi7 sur un nouveau poste et là surprise ? Le code ne compile plus et tous les transtypages sont refusés.

Je ne veux pas faire de StrCopy mais bien comprendre pourquoi ce source ne compile plus sur ma nouvelle machine...

Graffito:j'ai essayer de cocher la case 'syntaxe étendue' mais ça ne compile toujours pas.

Je nage en plein délire là:

J'ai tout coché dans Projet>Options>Compilateur>Option de syntaxe et là le code compile parfaitement.

Je redécoche petit à petit pour voir de quelle option ça vient et maintenant ça compile tout le temps 8O

Bref merci à tous ceux qui ont bien voulu se prendre la tête, si quelqu'un a une idée de ce qui a pu se passer je prend sinon je passe en résolu dans l'après midi...