Discussion :

[delphidebutant]

Bonjour,

J'utilise un TRichEdit pour travailler sur du texte UNICODE, et au chargement du fichier, tout est OK.

En revanche, si je veux extraire du texte, disons vMot, quelle fonction dois-je utiliser ?

vMot est déclaré en WideString

La méthode FindText touve les début/fin de vMot dans mon TRichEdit, mais Copy me renvoie des ???????? comme contenu de vMot.

Je suppose qu'il faut utiliser une fonction CopyWideString, mais mes recherches pour cette mystérieuse fonction n'ont pas abouti, si ce n'est à ce post ....

Je suis sous D2005 personnal

Merci d'avance pour votre aide.

[Andnotor]

TRichEdit unicode sous D2005... étonnant lorsqu'on sait que l'unicode n'a été introduit dans Delphi que depuis D2009

[cincap]

Bonjour à toutes et à tous,

@ Delphidebutant, regarde si ces fonctions te conviennent :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
function AnsiToUnicode(const str: AnsiString; codePage: Integer): UnicodeString; 
var 
  len: Integer; 
begin 
  {$IFDEF UNICODE} 
  if codePage = 0 then codePage := DefaultSystemCodePage; 
  if codePage = 0 then codePage := StringCodePage(str); 
  DefaultSystemCodePage := codePage; 
  {$ENDIF} 
  if str = '' then Result := '' 
  else 
  begin 
    len := MultiByteToWideChar(codePage, 0, PAnsiChar(str), -1, nil, 0); 
    if len > 1 then 
    begin 
      SetLength(Result, len - 1); 
      MultiByteToWideChar(codePage, 0, PAnsiChar(str), -1, PWideChar(Result), len); 
    end 
    else Result := ''; 
  end; 
end; 
 
function UnicodeToAnsi(const str: UnicodeString; codePage: Integer): AnsiString; 
var 
  len: Integer; 
begin 
  {$IFDEF UNICODE} 
  if codePage = 0 then codePage := DefaultSystemCodePage; 
  if codePage = 0 then codePage := StringCodePage(str); 
  DefaultSystemCodePage := codePage; 
  {$ENDIF} 
  if str = '' then Result := '' 
  else 
  begin 
    len := WideCharToMultiByte(codePage, 0, PWideChar(str), -1, nil, 0, nil, nil); 
    if len > 1 then 
    begin 
      SetLength(Result, len - 1); 
      WideCharToMultiByte(codePage, 0, PWideChar(str), -1, PAnsiChar(Result), len, nil, nil); 
    end 
    else Result := ''; 
  end; 
end;

Utilises aussi StrCopy()

@+,

Cincap

[delphidebutant]

Bonjour à toutes et à tous,

@ Delphidebutant, regarde si ces fonctions te conviennent :


Utilises aussi StrCopy()

@+,

Cincap

Merci pour ta réponse.

La fonction qui semblerait m'intéresser (AnsiToUnicode) renvoie un UnicodeString, type de variable non reconnue en standard.

Quel uses faudrait-il rajouter ?

Un point pas clair du tout pour moi, c'est que TrichEdit utilise une propriété Lines, qui est un strings, et une propriété cachée Text, qui semble être un string (j'ai un msg d'erreur, si je demande l'aide locale Delphi : Unable to locate ypelink:T:system.TrucMachin, et l'aide Borland me renvoie un gateway 504 dans les dents) .

Comment Delphi transfome une liste de string en un string unique, avec les caractères de fin de chaine ?

[cincap]

@ delphidebutant, je pense que c'est Mapi à ajouter dans le uses.

Désolé, je ne sais pas tester.

@+,

Cincap

[delphidebutant]

Cette page donne tout ce qu'il faut pour voir des chaines internes à l'appli comme dans le richedit, et donc pouvoir bosser dessus comme je veux le faire

http://koti.mbnet.fi/akini/delphi/urldecodeutf8/