Ajouter dans un mémo caractère par caractère

Question

Hello,

voila je voudrais savoir cmt faire pour ajouter dans un mémo caractère par caractère sans passage à la ligne, svp? 

merci d'avance

walid2876 · Answer

memo1.Lines[0]:=memo1.Lines[0] + 'A';
// le passage de la ligne se fait automatiquement si la longeur de la   chaine depasse  le width de la memo 
exemple :
 for i:=1 to 512 do  memo1.Lines[0]:=memo1.Lines[0] + 'A';
tu la vois sur plusieurs lines ds la memo1

walid2876 · Answer

Donc ....si tu veux lire ta chaine 
S:=memo1.Lines[0] .....il te renvois la ligne superrieur 
avec notre exmeple si le longeur du memo1 affiche 30 carectere de max .....tu as donc ((512 div 30) + 1 ) de ligne (calcul pas juste car tous les carectere non pas le meme width )
memo1.Lines[0] contient seulement 30 carectere (approxi )

walid2876 · Answer

si tu veux affiche ta chaine ds la meme ligne donc met 
   scrollbars:=ssHorizontal dans l'insperteur d'objets 
a ++++++++++++++

Cirec · Answer

Salut,

o&#249; alors tu peux faire aussi comme ceci :

procedure TForm1.btn_addmemoClick(Sender: TObject);
Var I : Integer;
begin
 Memo1.Clear;  //  on efface le contenue du memo
 Randomize;  // on appel randomize q'une fois normalement au d&#233;but du programme dans le OnCreate par exemple
 For I:=  1  to  255 do
  Memo1.Text : = memo1.Text + chr(random(26)+ 65); // et on ajoute caract&#232;re par carat&#232;re
end;

@+
Cirec

walid2876 · Answer

avec la property Text ,il sera Mieux   et pas compliqu&#233; .
Merci Cirec

Ajouter dans un mémo caractère par caractère

5 réponses

Votre réponse

Discussions similaires