Bonjour,

Je suis passé de Delphi 2007 à Rad Studio XE2 et j'essaye de migrer mes Programmes et je me trouve confronté au Pb d'unicode
J'en ai résolu pas mal nmais il me reste celui lié à une procédure de copie qui marchait super bien et j'aimerai bien la réutiliser
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
//*****************************************
procedure copier(Handle:HWND;Source,Cible:String);
 var
  lpFileOp : TSHFileOpStructA;
  TabFrom:array[0..16383] of char;
  i:integer;
 begin
  For i:=0 to length(Source)-1 do TabFrom[i]:=Source[i+1];
  {-----préparation du paramètre lpFileOp -----}
  lpFileOp.Wnd:=handle;
  lpFileOp.wFunc:=FO_COPY;
  lpFileOp.pFrom:=TabFrom;       // On aurait aussi put ecrire pFrom := @Chaine[1]
  lpFileOp.pTo:=PAnsiChar(Cible);
  lpFileOp.fFlags:=FOF_ALLOWUNDO;  // Possibilité d'annuler la copie
  { fin de la préparation du paramètre lpFileOp}
  SHFileOperation(lpFileOp);// procède à la copie
 end;
Voici les messages d'erreur que j'ai :
[DCC Erreur] Utilitaires.pas(43): E2010 Types incompatibles : 'PAnsiChar' et 'array[0..16383] of Char'
[DCC Avertissement] Utilitaires.pas(44): W1044 Transtypage de string en PAnsiChar suspect
[DCC Erreur] Utilitaires.pas(47): E2010 Types incompatibles : '_SHFILEOPSTRUCTW' et '_SHFILEOPSTRUCTA'

Avez vous une idée pour résoudre cela