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 : 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 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;
Partager