Discussion :

[didi59650]

dans une boucle for j'ai 6 valeur qui saffiche dans un richedit (richedit.lines.add). ensuite j'ai un richedit.lines.clear, le probleme c'est qu'il efface tout avant d'afficher la dernier valeur et cela meme en mettant un sleep avant. Quelqu'un sait comment empecher ça?
Je voulais egalement savoir comment mettre une phrase a la ligne avec un label? ( je l'utilise pour mettre un titre qui serait sur deuxligne)

[denokan]

pour le label :

Code :

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

label1.caption:='11' + #10#13 + '222';

et pour ton memo fais-nous voir ton code stp

[tekilx]

Bonjour,

pour le texte du label sur 2 lignes, c'est simple :

Code :

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

1
2
 
Label1.caption:='Ligne 1'+ #13#10 +Ligne 2';

#13#10 provoque un retour chariot et un saut de ligne

Concernant le Richedit, je ne vois pas très bien ou est ton problème : poste un bout de code, stp.

Amicalement,

Tekilx

[didi59650]

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
For i:=1 to 10 do
                     begin
                          OpenCOM('COM1 :baud=57600 parity=N data=8 stop=2');        // Ouverture du port COM
                          Y:=50+i;
                          tableau5[i] := y;                                          // Stockage de Y dans tableau5
                          Sendstring (pchar('E'+inttostr(Y) + #13));
                          for a:=1 to 6 do readbyte;                 // lie le retour des octets envoyés
                          sleep(2000);
                          luminance := (lecture_luminance);                          // Lecture de la luminance
                          tableau1[i] := luminance;                                  // Stockage de luminance dans tableau1
                          X := abs(25.1 - strtofloat(luminance));
                          tableau2[i] := X;                                                                  // Stockage de X dans tableau2
                          Richedit2.Lines.add('E'+inttostr(Y)+'   '+luminance+'       '+ FormatFloat('0.00',X));
                          closecom;
                     end;
                     min :=250;
                     For i:= 1 to 10 do
                       begin
                          if (tableau2[i]<min) then              // si i inferieur à 250 alors...
                             begin
                             min := tableau2[i];                    // min prend la valeur de tableau2
                             index1 := i;                            // index prend la valeur de i
                             end;
                       end;
                      with RichEdit2 , SelAttributes, Lines do
                 begin
                      SelStart  := Pos(Lines[(index1+11)-1] , Text)-1;       // Identification de la bonne ligne
                      SelLength := Length(Lines[(index1+11)])+2;
                      Color     := cllime;                             // coloration en vert de la bonne valeur
                 end;
                 Richedit3.Lines.add('E'+inttostr(50+index1)+'   '+tableau1[index1]+'   '+FormatFloat('0.00',tableau2[index1]));       // ecriture des resultats
 end;
richedit2.lines.clear

Pour resumer, un appareil envoie des mesures qui sont ecrites dans le richedit, puis la bonne valeur est colorié en vert. Sa marche mais la dernier valeur n'est pas affichée

[didi59650]

en fait si je fais un clear c'est parceque le meme genre de processu va recommencer.

[denokan]

ca ne viendrai pas du fait que tu écris dans RichEdit3 au lieu de RichEdit2 ?

[didi59650]

c bon j'ai trouvé il fallait mettre : Application.ProcessMessages; a la fin de ma boucle