Discussion :

[delphidebutant]

Bonjour,

j'aimerais savoir si ce code libère bien autant de mémoire qu'il n'en alloue (je décale le #0 terminal d'un cran dans la variable vMot)

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
Var
  vEntree : String
  vPMot : PWideChar;
  vMot : WideString; 
  vLen: Cardinal;
begin
 
vLen := Length(vEntree)* SizeOf(WideChar) + 1;
vPVers := AllocMem(vLen);
 
vMot := vPMot;
....   
 for k := vCurseur to vLen do
      vMot[k] := vMot[k+1];
dec(vLen);
...
FreeMem(vPVers);
end;

le vPMot me sert dans une liste.

Merci pour vos infos

[Paul TOTH]

ton code est incompréhensible

quelle version de Delphi utilises-tu ?

[delphidebutant]

J'utilise D2005 personnal.

Ce code est peut-être incompréhensible, mais il marche : je récupère du unicode dans delphi, et les valeurs récupérées s'affichent avec un affichage tel qu'attendu.

Cette ligne

Code :

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

1
2
3
4
5
6



URLDecodeUTF8(PAnsiChar(vEntree), vPMot, vLen);
vMot:= vPMot;

que je n'avais pas mise, rendra peu être l'usage du code plus compréhensible

Mon pointeur vPMot est destiné à être manipulé dans une TList, vMot me sert pour filtrer certains caractères, et au lieu de recopier toute la chaine, je shifte la fin de chaine ( un décalage, quoi), depuis le curseur

Mais est-ce que je libère bien ainsi toute la mémoire allouée, en faisant ces manips (sans doute peu orthodoxes) ? C'est la question que je me pose .

[delphidebutant]

question débile

[Paul TOTH]

on reprend...

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
 
Var
  vEntree : String
  vPMot   : PWideChar;
  vMot     : WideString; 
  vLen      : Cardinal;
begin
 
// pour ajouter un #0 Wide, c'est +2
 
 vLen := Length(vEntree)* SizeOf(WideChar) + 1;
 
// ici je suis obligé de supposé que vPVers est en fait vPMot...
 
 vPVers := AllocMem(vLen);
 URLDecodeUTF8(PAnsiChar(vEntree), vPMot, vLen);
 
// pourquoi ?!
 vMot := vPMot;
 ....   
 for k := vCurseur to vLen do
      vMot[k] := vMot[k+1];
 dec(vLen);
 ...
 
// tu libères donc vPMot alors que tu dis l'utiliser dans un TList...
 FreeMem(vPVers);
end;

Bref, au risque de me répéter ton code est incompréhensible

pourquoi n'utilises-tu pas simplement :

Code :

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

1
2
 
 vMot := UTF8Decode(vEntree);

[Andnotor]

Il y a aussi cette boucle sur vLen qui devrait être remplacé par Length(vMot) -1. vLen est 2x trop grand par rapport à la longueur de la chaîne

A noter que l'ensemble de cette boucle pourrait être remplacé par MoveMemory.