COPIER UNE LIGNE PARTICULIÈRE D'UN TMEMO DANS UN TEDIT
Guillemouze
Messages postés991Date d'inscriptionsamedi 25 octobre 2003StatutMembreDernière intervention29 août 2013
-
7 mars 2011 à 20:45
Gogo700
Messages postés31Date d'inscriptionmardi 31 août 2010StatutMembreDernière intervention15 mars 2013
-
8 mars 2011 à 10:43
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
Gogo700
Messages postés31Date d'inscriptionmardi 31 août 2010StatutMembreDernière intervention15 mars 2013 8 mars 2011 à 10:43
Doucement, je n'ai que 12 ans...
Guillemouze
Messages postés991Date d'inscriptionsamedi 25 octobre 2003StatutMembreDernière intervention29 août 20136 7 mars 2011 à 20:45
Je vais être un peu cru, mais ta source est totalement inutile !
3 lignes (ou plutôt 2 et 1/2), pour montrer le B.A.BA de la manipulation de chaîne !!!
En plus, le code n'est pas très propre : quand tu es dans une instance, n'utilise pas de variable globale sur une instance, certes de la même classe, mais qui peut être différente. Il faut remplacer
"procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Edit.Text := (Form1.Memo.Lines[3]); //Voir plus bas
end;"
par
"procedure TForm1.Button2Click(Sender: TObject);
begin
Self.Edit.Text := (Self.Memo.Lines[3]); //Self peut etre omis
end;"
8 mars 2011 à 10:43
7 mars 2011 à 20:45
3 lignes (ou plutôt 2 et 1/2), pour montrer le B.A.BA de la manipulation de chaîne !!!
En plus, le code n'est pas très propre : quand tu es dans une instance, n'utilise pas de variable globale sur une instance, certes de la même classe, mais qui peut être différente. Il faut remplacer
"procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Edit.Text := (Form1.Memo.Lines[3]); //Voir plus bas
end;"
par
"procedure TForm1.Button2Click(Sender: TObject);
begin
Self.Edit.Text := (Self.Memo.Lines[3]); //Self peut etre omis
end;"
PS: pour ce genre de petits bouts de code, tu as http://www.codyx.org/