Discussion :

[Maglight]

J'utilise un afficheur branché sur mon port COM et travaille avec l'objet TComport de Delphi6.
Cet afficheur possède 2 lignes de 2 caractères chacune.
J'arrive bien à afficher des choses dessus au travers de la commande WriteStr mais je n'arrive pas à purger l'affichage.
En plus lorsque j'affiche mes données, celles-ci se mettent à la suite les une des autres.
Exemple :
Je voudrais sur deux actions différentes faire afficher la première fois '123' et sur la seconde '456'.
Actuellement cela m'affiche '123456'
Si en plus quelqu'un savait comment passer à la ligne dans mon texte de façon à avoir :
'12' sur la première ligne et '3' sur la seconde la de la première action (hormis en mettant 18 espaces entre 12 et 3).

[skywaukers]

Bonjour,

j'y connais rien en communication avec des appareils comme ça, alors je risque de dire une enorme bétise : les caractères #13#10 n'ont pas d'éffet ?

@++
Dany

[JP.NUAGE]

voici un petit bout de code qui imprime deux lignes. Le texte de ces deux lignes est récupéré dans un fichier .Ini. Ceci est fait sans MaFenetre

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
procedure TFonction.Bienvenu(xPosition : string);
// xPosition indique si l'on veut que le texte soit à Gauche, à Droite ou au Centre
 
var Affich : TFRM_Affichage;
    xLibelle, xFin : String;
    x : integer;
begin
     Affich := TFRM_AFFICHAGE.Create(Self);
    case xPosition[1] of
         'G' : X := 0;
         'C' : X := (20 - Length(MaFenetre..LigneAfficheur1)) div 2 ;
         'D' : X := 20 - Length(MaFenetre.LigneAfficheur1);
      end;
    xLibelle := StringofChar(' ',x)+ MaFenetre..LigneAfficheur1;
    Affich.EcrireLigne1(#27+'='+#2);
    Affich.EcrireLigne1(xLibelle);
    case xPosition[1] of
         'G' : X := 0;
         'C' : X := (20 - Length(MaFenetre.LigneAfficheur2)) div 2 ;
         'D' : X := 20 - Length(MaFenetre.LigneAfficheur2);
      end;
    xLibelle := StringofChar(' ',x)+ MaFenetre..LigneAfficheur2;
    Affich.EcrireLigne2(xLibelle);
 
end;

Mais il faut toujours que la ligne imprimée fasse 20 caractères. Pas le choix

[Maglight]

Merci pour ces différentes infos.
Je suis un peu pris par le temps et doit travailler sur autre chose pour le moment mais je me garde vos précieuses informations de coté.
Merci encore de vos réponses.