Discussion :

[Jipété]

Bonjour,

si je tape A dans un Edit1, le test IntToStr(Length(Edit1.Text)); me retourne 1.

Et si je tape <CTRL><MAJ>u00c0<ESPACE> pour faire afficher À, le test me retourne 2.

Vous voyez 2 caractères, vous ?

Env. : Laz 1.0.10, FPC 2.6.2, Debian Wheezy 32 bits.
Quelqu'un pourrait tester avec une 1.0.12 et/ou FPC 2.7 et/ou 64 bits ?

Merci pour vos retours de tests, pour vos idées, et bon week-end,

EDIT : et y a plus grave ! Le code pour les trois points de suspension (qui compte pour 1 seul caractère, en typographie : …), me retourne 3.
Vous pouvez tester avec <CTRL><MAJ>u2026<ESPACE>

Par ailleurs, un test en console sous Bash fonctionne bien :

Code :

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

1
2
3
4
#!/bin/bash
tst=$1
echo $tst
echo ${#tst}

D'autant plus curieux qu'un code en C retourne les mêmes erreurs que Lazarus :

Code c :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#include <stdio.h>
#include <string.h>
 
int main(int argc, char **argv)
{
	int arg;
	for (arg = 0; arg < argc; arg++) {
		if (argv[arg] [0] == '-')
			printf("option : %s\n", argv[arg] + 1);
		else	
			printf("argument %d: %s\n", arg, argv[arg]);
			printf("longueur : %d\n", strlen(argv[arg]));
		}
	return 0;
}

Sorties :
# ./testarg 'À'
argument 0: ./testarg
longueur : 9
argument 1: À
longueur : 2
# ./testarg '…'
argument 0: ./testarg
longueur : 9
argument 1: …
longueur : 3
# ./testarg '•'
argument 0: ./testarg
longueur : 9
argument 1: •
longueur : 3
# ./testarg 'A'
argument 0: ./testarg
longueur : 9
argument 1: A
longueur : 1

[SoftChris]

Lazarus est Unicode, ajoute l'unité lazutf8 dans uses et teste :

Code :

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

IntToStr(UTF8Length(Edit1.Text));

[Jipété]

Yep !

L'homme qui me sauve la vie, euh, le code

(...) ajoute l'unité lazutf8 dans uses

Même pas besoin.

IntToStr(UTF8Length(Edit1.Text));

[SoftChris]

Si faut ajouter l'unité lazutf8, explication tiré du WikiFreePascal :

Pour exécuter des opérations sur des chaines UTF-8, il est préférable d'utiliser les routines de l'unité lazutf8 plutôt que celles de SysUtils de Free Pascal, car SysUtils n'est pas encore prêt à travailler avec Unicode, alors que lazutf8 l'est. Substituez simplement les routines de SysUtils avec leur équivalent lazutf8, qui ont toujours le même nom exception faite du préfixe "UTF8" ajouté.

voir : http://wiki.freepascal.org/LCL_Unicode_Support/fr

[Jipété]

Si faut ajouter l'unité lazutf8, explication tiré du WikiFreePascal (...)

OK, unité ajoutée, mais je n'ai pas noté de changement (puisque ça fonctionnait sans ajout).

Merci pour le coup de main, et le lien vers l'article (assez indigeste, faut bien le reconnaître )

[DomDA91]

OK, unité ajoutée, mais je n'ai pas noté de changement (puisque ça fonctionnait sans ajout).

Mais tu a peut-être LCLProc dans ta clause Uses.

En effet jusqu'à Lazarus 0.9.30 les routines UTF8 étaient dans cette unité. Maintenant elles sont dans lazutf8 mais ont aussi été maintenues, pour la compatibilité ascendante, dans LCLProc avec le status 'Deprecated'.

Par conséquent ça marche avec l'une ou l'autre de ces deux unités mais il préférable d'utiliser lazutf8.