Discussion :

[naute]

Bonjour .

En suivant les conseils reçus dans un récent topic, qui m'encourageaient à migrer vers l'UTF-8, j'ai constaté un petit problème lors de l'utilisation de la procedure

Code Pascal :

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

1
2
3
4
5
6
7
8
9
10
 
procedure UTF8Insert(const source: UTF8String; var s: UTF8string;
  StartCharIndex: PtrInt);
var
  StartBytePos: PChar;
begin
  StartBytePos:=UTF8CharStart(PChar(s),length(s),StartCharIndex-1);
  if StartBytePos <> nil then
    Insert(source, s, StartBytePos-PChar(s)+1);
end;

de l'unité LazUTF8. Apparemment, elle ne fonctionne pas.

J'ai fait un petit test avec les procédures insert et delete de cette unité, et delete fonctionne bien quant à lui.

Code Pascal :

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
 
procedure TFBase.BtnInsererClick(Sender: TObject);
var
  chaine1, chaine2: UTF8String;
begin
  chaine1:=LEInitial.Caption;
  chaine2:=LEInsert.Caption;
  UTF8Insert(chaine1, chaine2, SEPosition.Value);
  STResultat.Caption:=chaine1;
end;
 
procedure TFBase.BtnOterClick(Sender: TObject);
var
  chaine: UTF8String;
begin
  chaine:=LEInitial.Caption;
  UTF8Delete(chaine, SEPosition.Value, SELongueur.Value);
  STResultat.Caption:=chaine;
end;

Est-ce la procédure qui pose problème ou mon code?

Merci pour vos avis,

amicalement,
naute.

[DomDA91]

Bonjour, dans

Bonjour .

Code Pascal :

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

UTF8Insert(chaine1, chaine2, SEPosition.Value)

J'ai l'impression que tu a interverti les 2 premiers paramètres :
Le premier, const, devrait être la chaîne à insérer et le second, var, la chaine initiale puis au retour la chaîne résultante.

Code Pascal :

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

UTF8Insert(chaine2, chaine1, SEPosition.Value)

[naute]

Bonjour DomDa91 .

Tout à fait exact .
C'est bizarre, mais dans ma mémoire, dans les routines de traitement de chaîne sous Delphi, la chaîne sur laquelle on travaillait était référencée en premier, ce qui me semblait logique, et je ne me suis même pas posé la question.
Je dois me tromper.

Merci beaucoup!

Amicalement,
naute.

[BeanzMaster]

Salut si jamais pour ta gestion des string en UTF8 si tu veux te simplifier la vie, tu peux tester mon unité que j'ai posté ici. Il y a encore 2 ou 3 choses que j'aimerais vérifié encore sur les chaines de caractères mais elle parfaitement fonctionnelle en l'état et je n'ai pas encore eu de problèmes avec.


A+