Discussion :

[xenos]

Bonjour,

Je développe une application sous Win Vista avec Delphi 2006.

J'introduis de façon automatique des chaines de caractères continues dans un memo. Parfois ces chaines peuvent dépasser la taille de 1024 caractères. De ce fait, les caractères au de là du 1024ième caractère sont mis à la ligne.

Lorsque je fais cette requête, je n'obtiens dés lors que les 1024 premiers caractères :

Code :

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

memo.Lines[0];

Alors que lorsque j'enregistre le même memo dans un fichier .txt, j'obtiens les lignes avec le nombre de caractères exact ! Cela pouvant dés lors dépasser les 1024 caractères !

Comment puis je dés lors dans le logiciel récupérer la première ligne entièrement ?

D'avance merci pour vos réponses.



xenos

[Graffito]

Bonjour,

En passant par une TStringList (ou Tstrings) intermédiaire, cela devrait marcher :

Code :

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

1
2
3
4
5
6
7
8
var tsl : tstringlist ;
...
tsl:=tstringlist.create ;
...
tsl.Text=memo.Lines.text ;
MemoLine0=tsl[0] ;
...
tsl.free ;

[ShaiLeTroll]

Le Mémo est un composant Windows non ? Vérifie sur NotePad si tu as le même comportement ...

[xenos]

Le Mémo est un composant Windows non ? Vérifie sur NotePad si tu as le même comportement ...

Il a le même comportement avec NotePad ...

Mais en utilisant NotePad++, il affiche la ligne sur UNE ligne !

[Cl@udius]

Salut

C'est effectivement un comportement assez bizarre.
J'ai essayé avec un SendMessage avec EM_GETLINE et même symptôme.

Cependant la méthode de Grafitto fonctionne.

+1

@+ Claudius

[xenos]

En passant par une TStringList (ou Tstrings) intermédiaire, cela devrait marcher :

Code :

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

1
2
3
4
5
6
7
8
var tsl : tstringlist ;
...
tsl:=tstringlist.create ;
...
tsl.Text=memo.Lines.text ;
MemoLine0=tsl[0] ;
...
tsl.free ;

Un grand merci Graffito! Ton code fonctionne à merveille !

Juste pour information ... le composant TStringList, tu le trouve dans quelle partie des composants ? Standard, Additional, Win32, ...

Bon développement à tous.



xenos

[ShaiLeTroll]

TStringlist ce n'est pas dans la palette, c'est un objet non visuel, disponibles dans Classes.pas ... surement un des objets les plus utilisés en Delphi

[xenos]

TStringlist ce n'est pas dans la palette, c'est un objet non visuel, disponibles dans Classes.pas ... surement un des objets les plus utilisés en Delphi

D'accord, merci pour l'info.