TRANSFERT INSTANTANÉ D'UNE VARIABLE ENTRE 2 UNITÉS.

Signaler
Messages postés
323
Date d'inscription
lundi 24 février 2003
Statut
Membre
Dernière intervention
17 mai 2005
-
Messages postés
288
Date d'inscription
mardi 2 mai 2006
Statut
Membre
Dernière intervention
12 octobre 2011
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/19799-transfert-instantane-d-une-variable-entre-2-unites

Messages postés
288
Date d'inscription
mardi 2 mai 2006
Statut
Membre
Dernière intervention
12 octobre 2011

yep j'y ai pensé ! mais je croyais que y'avait une solution meilleure c'est pourquoi j'y suis allé sur votre source !
Messages postés
323
Date d'inscription
lundi 24 février 2003
Statut
Membre
Dernière intervention
17 mai 2005

Evitons d'utiliser des variables inutiles:

procedure TForm1.EditDeForm1Change(Sender: TObject);
begin
form2.EditDeForm2.Text := form1.EditDeForm1.Text;
end;
end.

procedure TForm2.EditDeForm2Change(Sender: TObject);
begin
form1.EditDeForm1.Text := form2.EditDeForm2.Text;
end;
end.