Debutant pb boucle for

Bonjour voilà une partie de mon code qui compile bien
Je souhaite copier toutes les lignes d'un memo1 à un memo2.
Ma variable nbl(nombre de ligne) contient bien le nombre de ligne du mémo1 et je l'affiche. Mais le problème c'est que mon Mémo2 ne recoit que les 2 premières lignes de mon mémo1 alors que je fais une boucle de 0 à nbl.
Je vous remercie d'avance
Boober

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); begin If OpenDialog1.Execute then Memo1.Lines.LoadFromFile(OpenDialog1.FileName);   nbl :=Memo1.Lines.Count -1; ShowMessage(IntToStr(nbl)); For i := 0 to nbl do begin Memo2.Lines[i] := Memo1.Lines[i]; end;

---

euh ... ca serait peut être plus simple comme çà :

Code:

---

1 2	Memo2.Lines.text := Memo1.lines.Text

---

Même pas besoin de boucle for ^^

:tagcode:
Tu es sûr que ton memo1 n'a pas que deux lignes ???

Salut :wink:

Le problème c'est que ton Memo2 ne doit avoir que 2 lignes donc il faut les ajouter. En fait, si j'ai bien compris ce que tu veux faire, moi je ferai ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); begin If OpenDialog1.Execute then Memo1.Lines.LoadFromFile(OpenDialog1.FileName);   nbl :=Memo1.Lines.Count -1; ShowMessage(IntToStr(nbl)); Memo2.Clear; For i := 0 to nbl do begin Memo2.Add(Memo1.Lines[i]); end;

---

Merci Guile

j'ai fait un Memo2.Lines.Add(Memo1.Lines[i]);

Ca fonctionne trés bien mais pourquoi mon memo2 ne contenait que deux lignes. je ne lui ai pas définit à la base son nombre de ligne, j'avais fait un emplacement aussi grand que pour le mémo1 mais celà ne doit pas en tenir compte aparamment.

Boober

Salut

Tout simplement parce ton Memo2 devait, pour une raison quer j'ignore, contenir déjà deux lignes. Tu ne faisais que remplacer leur contenu via la propriété Lines. Pour ajouter des lignes, il faut employer Add comme te l'a indiqué Guile.

Regarde en mode conception le contenu de ton Memo2, il se pourrait bien qu'il contienne deux lignes blanches.

cdlt

e-ric

Je suis d'accord avec E-ric. En général, en conception quand tu ajoutes un Memo sur ta Form, il y a au moins 1 ligne par défaut dans la propriétés Lines (il y a déjà le nom du composant pré renseigné).
C'est pour ça que je conseille de faire un clear avant d'utiliser un Memo.
Quant à la copie de lignes, je te conseille d'utiliser la méthode de Malatar qui est bien mieux que celle que j'ai improvisée :lol:

Code:

---

1 2	Memo2.Lines.text := Memo1.lines.Text

---