Discussion :

[steph_1]

Bonjour à tous,
je saisi du texte dans un TEdit et ensuite je veux afficher ce texte interprété dans un TMemo :
Ex. : TEdit : ABC§CRLF§DEF
Le TMemo devrait afficher : ABC
DEF
Comment je dois faire pour que le TMemo interpréte mon §CRLF§ ?
(ou un autre caractère hexa ?)
Merci

[bandit boy]

Salut,
le TEdit renvoie un AnsiString, tu peux travailler tes chaînes de caractères avec les méthodes AnsiString.Pos (pour connaître la position d'une chaîne dans ta chaîne), .SubString (pour récupérer une chaîne dans ta chaîne), .Delete (pour supprimer N caractère dans ta chaîne) et .Length (pour récupérer la longueur de la chaîne)

Par exemple:

Code :

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

1
2
3
4
 
AnsiString  texte  = "ABC§CRLF§DEF";
int         pos    = texte.Pos("§CRLF§");     //renvoie la position de '§CRLF§", ici 4
AnsiString  texte1 = texte.SubString(1,pos-1);//récupère "ABC"

Tu peux te servir de l'aide pour avoir d'autres exemple.

[nek_kro_kvlt]

Moi je fait comme ça:

j'utilise une fonction split:

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
 
function TfmXAMException.Split(Source, Deli: string): TStringlist;
    var
    EndOfCurrentString: integer;
 
    begin
    result:= TStringList.Create;
    if not length(source) >0 then exit;
    repeat
    EndOfCurrentString := Pos(Deli, Source);
    if (EndOfCurrentString <= 0) then
    begin
    EndOfCurrentString:=0;
    result.add(Source);
    end
    else
    result.add(Copy(Source, 1, EndOfCurrentString - 1));
    Source := Copy(Source, EndOfCurrentString + length(Deli), length(Source) - EndOfCurrentString);
    until EndOfCurrentString = 0;
end;

et je l'appelle comme ça:

Code :

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

1
2
 
mon_memo.lines := split(ansireplacestr(ansireplacestr(ma_string_avec_crlf,#10,''),#$A,''),#13);