interprétention dans un TMemo

Version imprimable

20/03/2007, 10h36
steph_1

interprétention dans un TMemo

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

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:

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.

Moi je fait comme ça:

j'utilise une fonction split:

Code:

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:

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