reichedit clear probleme

Version imprimable

24/04/2006, 13h24
didi59650

reichedit clear probleme

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)
24/04/2006, 13h43
denokan

pour le label :

Code:

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

et pour ton memo fais-nous voir ton code stp :P
24/04/2006, 13h45
tekilx

Label sur plusieurs lignes
Bonjour,

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

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

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
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

24/04/2006, 14h00
didi59650

en fait si je fais un clear c'est parceque le meme genre de processu va recommencer.
24/04/2006, 14h20
denokan

ca ne viendrai pas du fait que tu écris dans RichEdit3 au lieu de RichEdit2 ?
24/04/2006, 14h45
didi59650

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