WIDECHARLENTOSTRING |
Longueur d'un WideChar à chaîne |
|---|---|
| Delphi/Kylix/Lazarus | System |
Syntaxe
| Function WideCharLenToString(Source:PWideChar; SourceLen:Integer):String; |
Paramètres
| Nom | Description |
|---|---|
| Source | Ce paramètre permet d'indiquer l'expression contenant la chaîne de caractères à traiter |
| SourceLen | Ce paramètre permet d'indiquer le nombre de caractères à conserver dans la chaîne de caractères Unicode. |
Description
Cette fonction permet de convertir un morceau d'une chaîne de caractères Unicode en une chaîne de caractères de format standard Pascal ANSI.
Exemple
Voici un exemple montrant l'utilisation de cette fonction une simple démonstration de l'espace entre les 2 caractères (two character) :
- Program WideCharLenToStringSamples;
-
- {$APPTYPE CONSOLE}
- Uses SysUtils;
-
- Const
- X : WideString = 'Bonjour';
-
- Var
- Y : Array of Char Absolute X;
- I : Byte;
-
- BEGIN
- WriteLn('Longueur de X = ',Length(X));
- WriteLn('Longueur d''un caractere de X = ',SizeOf(X[1]));
- WriteLn('On remarque quand Delphi, la valeur X contient un espace entre chaque 2 caracteres');
- For I := 0 to 15 do Write(Y[I]);
- WriteLn;
- WriteLn('Nombre d''octets qu''occupe X = ',Succ(SizeOf(X[1])*Length(X)));
- WriteLn('WideCharLenToString(Bonjour,4)=',WideCharLenToString('Bonjour',1));
- WriteLn('WideCharLenToString(Bonjour,4)=',WideCharLenToString('Bonjour',4));
- WriteLn('WideCharLenToString(Bonjour,7)=',WideCharLenToString('Bonjour',7));
- END.
on obtiendra le résultat suivant :
Longueur de X = 7Longueur d'un caractere de X = 2
On remarque quand Delphi, la valeur X contient un espace entre chaque 2 caracteres
B o n j o u r
Nombre d'octets qu'occupe X = 15
WideCharLenToString(Bonjour,4)=B
WideCharLenToString(Bonjour,4)=Bonj
WideCharLenToString(Bonjour,7)=Bonjour
Voir également
Dernière mise à jour : Mercredi, le 18 février 2015