Discussion :

[emile62]

bonjour
je dois ecrire au fur et à mesure dans un memo de façon à voir ,en cas de problème ou s'arrète l'envoie des carractères
je lis un carractère sur le disque je l'envoie sur le port Com et je voudrait suive
la progression dans le memo or l'affichage n'a lieu qu' a la sourtie de la boucle et d'un seul bloc (la barre de gauche suit bien la progression)
voici le code mis:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
repeat
  read(F2,car);
  ComPort.WriteStr(car);
  memo1.Text := memo1.Text + car;
  memo1.SetFocus  ;
  Memo1.Visible:=true;
until EOF(F2);
closeFile(F2);

merci de votre aide
Emile62

[ero-sennin]

Salut,

Pour "forcer" le rafraichissement du Memo, il faut utiliser Memo1.Update ...

Dans ton cas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
repeat
  read(F2,car);
  ComPort.WriteStr(car);
  memo1.Text := memo1.Text + car;
  memo1.SetFocus  ;
  Memo1.Visible:=true;
  Memo1.Update;
until EOF(F2);
closeFile(F2);

Logiquement ça devrait fonctionner ... sinon, il faudrait faire à la place de cette ligne un Application.ProcessMessages ...
Par contre, le SetFocus ainsi le que Visible sont ils utile ... ?? Je ne pense pas ...

En espérant t'avoir aidé
A+

[emile62]

Merci
setfocus et visible ont ete mis pour essai il n'y avait pas de différence
j'avais pourtant essayé update mais j'ai du mettre updatecontrolstate
problème resolu
A+
Emile