Discussion :

[madfu]

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 :

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

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 ?

[slimjoe]

Sur mon Delphi 7 ça fonctionne parfaitement.

[denokan]

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

[Eric Sigoillot]

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


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 :

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

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 :

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

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;

@++

[Graffito]

Bonjour,

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

[madfu]

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.

[madfu]

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

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