boucle sur composant memo

Version imprimable

J'ai simplifié mon programme de façon à être clair.
Soit :
- une form avec 3 memos (chacun avec 4 lignes données)
- un memo devant recueillir les données d'un des 3 memos choisis grace à un Mainmenu (choix 1, choix2, choix 3)

La bizarrerie qui provient d'une erreur de programmation c'est que
lorsque je fais un choix : exemple ch2 (j'ai choisi le memo2 contenant 4 lignes avec F - ligne 1,
G - ligne 2
H - ligne 3
J - ligne 4

je n'obtiens QUE l'écriture des 2 premières lignes (de memo2) dans le memo4 qui recueille les données de memo2 choisi. Soit : F et G . C'est tout !
Idem pour le même essai avec memo1 ou memo 3 ... je n'ai que les 2 premières lignes !

D'où vient mon erreur ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 procedure traite (num :integer); var j : integer; begin If Form1.Components[num] IS Tmemo then for j:=0 to 3 do // parcours les 4 lignes du memo choisi Form1.Memo4.Lines[j]:=(form1.Components[num] as Tmemo).Lines[j] ; end; // choix des memos (dans le mainmenu1) procedure TForm1.ch1Click(Sender: TObject); begin num_etal:=1; traite (num_etal-1); end; procedure TForm1.ch2Click(Sender: TObject); begin num_etal:=2; traite (num_etal-1); end; procedure TForm1.ch3Click(Sender: TObject); begin num_etal:=3; traite (num_etal-1); end;
********************* Merci d'avance !

21/12/2005, 19h53
qi130

En ignorant volontairement le code "simplifié" que tu fournis (tu as peut-être enlevé les erreurs...), qq remarques:

-prévoir un clear du Memo4
- tu références les memos sources comme si tu étais certain que ce sont les composants 0, 1 et 2 de ta fiche. est-ce vraiment le cas ?
- pourquoi ne pas utiliser FindComponent ?

Code:

FindComponent("MonMemo"+IntToStr(num))....

qui permet de s'affranchir du n° de composant...

- les TMemos disposent d'une propriété Text (= tout le contenu)
21/12/2005, 21h16
DURVILLE

Merci de la réponse qui précède.
Effectivement je peux envisager une autre écriture du code.

Mais l'erreur n'est pas trouvée... et j'aime bien comprendre où ça coince !
Dans cet exemple basique je suis certain des numéros du composant sélectionné. (les contenus des memo1, 2, 3 sont différents)
Et je vois bien les 2 premières lignes en vérification dans le memo4.
Mais pourquoi 2 lignes seulement ... Mystère.
21/12/2005, 21h32
DURVILLE

Le mystère s'épaissit (pour moi) ...

J'ai ajouté dans ma procédure "traite" la ligne suivante :

Code:

Form1.Memo4.Clear;

et cette fois ... je n'ai plus que la 1ère ligne du memo choisi !!!

les 3 suivantes attendues ne sont pas au rendez-vous.

BIGRE ! :roll:

Merci encore à QI130 (attention je suis psychologue :D !!) qui m'a permis d'écrire un code valide avec findcomponent.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Procedure Traite(N : integer);
Var
        ligne:string;
        cpte, j , nb_ligne : Integer;
 
Begin
    Form1.memo4.clear;
 
For j:= 1 to 1 do
   Begin
    For nb_ligne:= 0 to  (Form1.findComponent('memo'+ intTostr(N)) As Tmemo).lines.count-1 DO
     begin
     ligne:=(Form1.findComponent('memo'+ intTostr(N)) As Tmemo).Lines[nb_ligne];
 
     form1.Memo4.lines.Add(ligne);
 
     end;
   End;
 
End;
 
procedure TForm1.Ch11Click(Sender: TObject);
begin
  num:=1;
  traite(num);
end;
 
procedure TForm1.Ch21Click(Sender: TObject);
begin
  num:=2;
  traite(num);
end;

Mais je ne mets pas encore la balise "RESOLU" car ma question reste sans réponse ... pour l'instant !

22/12/2005, 18h22
TicTacToe

A mon avis, tu as résolu ton problème, car justement,

Les components[ x ] ne correspondaient pas forcément pile à tes mémo X.

(il suffit que tu poses un composants entre temps, pour que components[ i ] soit décalé ou plus le même qu'avant...) vu que tu teste seulement

is TMemo

et que tu ne t'assures pas que c'est LE bon mémo

si tu traces ton progs, que au moment voulue, tu regardes
form1.Components[num].Name

je pense que tu auras des surprises