Discussion :

[SergioMaster]

Bonjour,

Cela fait très longtemps que je n'ai pas écrit de programme console et explique le classement de ce post dans la catégorie débutant.

Jusqu'à présent je n'utilisai que les quelques writeln nécessaires lors du déroulement de mes quelques programmes consoles. Hier j'ai voulu en quelque sorte mettre un compteur en place (défilement d'un simple chiffre d'une boucle while not eof do)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
FDTable.Open;
n:=0;
writeln('nombre d'enregistrement : '+fdtable.recordcount.tostring;
While not FDTable.EOF 
 do begin
   //  traitement
   ....
   if n>0 then for i:=1 to length(n.tostring) do write(#8); // retour au début de ligne  
   inc(n);
   write(n.tostring); // le but est ici d'afficher le compteur
   next;
 end;
FDTable.Close;
writeln(' ');

c'est le retour de ligne que je trouve un peu inélégant. (pressé j'ai fait avec)
J'ai tenté, sans succès, d'utiliser la séquence escape <Esc>[10D, mais, je pense que c'est dû au type de string de version unicode je n'arrive pas à coder ce truc !

une idée ?

[fbalien]

Bonjour SergioMaster

avec un

Code :

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

write(#13)

on revient direct en début de ligne
Après je sais pas si c'est bien le résultat que vous voulez

cela doit donner ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
FDTable.Open;
n:=0;
writeln('nombre d''enregistrement : ' , fdtable.recordcount);
While not FDTable.EOF 
 do begin
   //  traitement
   ....
   write(#13); // retour au début de ligne  
   inc(n);
   write(n); // le but est ici d'afficher le compteur
   next;
 end;
FDTable.Close;
writeln(' ');

[fbalien]

Après pour pousser plus loin un bon vieux GotoXY

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
uses
  System.SysUtils,windows;
var
  i : integer;
  StdHandle: THandle;
 
procedure GotoXY(x, y: Integer);
var
  CursorCoord: _COORD;
begin
  CursorCoord.x := x;
  CursorCoord.y := y;
  SetConsoleCursorPosition(StdHandle, CursorCoord);
end;
 
begin
  try
    StdHandle := GetStdHandle(STD_OUTPUT_HANDLE);
    for i := 1000 downto 0 do
    begin
      GotoXY(0,0);
      write(i , ' ');
      sleep(100);
    end;
    readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

[SergioMaster]

Bonjour,

#13 c'est parfait et tellement plus simple je n'étais pas tomber dessus durant mes (mauvaises) recherches
et non merci, pas de gotoXY, restons en au plus simple

si même je pouvais combiner en un seul write ce serait parfait

[Edit]
un petit test rapide et c'est le cas

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
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
  System.SysUtils;
 
var i : integer;
begin
  try
    writeln('debut');
    for I := 0 to 1200 do
      begin
        write(#13+i.ToString);
        sleep(100);
      end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Merci

[anapurna]

salut

pourquoi utilise tu write plutôt que writeln ... qui lui inclus un retour a la ligne ???

[SergioMaster]

pourquoi utilise tu write plutôt que writeln ... qui lui inclus un retour a la ligne ???

parce que writeln passe à la ligne suivante contrairement à write et que je voulais avoir une numérotation sur une seule ligne et non un affichage

1
2
3
4
5
....

[anapurna]

salut

il me manque des infos ... write(#13) revient a écrire writeln()

[SergioMaster]

bonjour,

il me manque des infos ...

teste le petit programme que j'ai mis en #4 qui a le comportement que je veux
et tu y verras la différence entre writeln et write

pour moi writeln fait un line feed en plus d'un carriage return (je ne sais si c'est CR+LF ou LF+CR, mais j'opte plutôt pour la première) or je ne veux pas du line feed
à mon avis cela dépend aussi du fichier de sortie , dans mon cas l'écran, et du LineBreakStyle (qui dépend aussi de l'OS )

[fbalien]

Bonjour

la séquence pour faire un writeln
c'est write (#13#10);
correspondant donc à un CR + LF
voir la table ascii

[Roland Chastain]

Amusant l'idée du caractère #13. Attention quand même au fait que la ligne ne sera pas effacée. Mais je suppose que dans le cas présent ce n'est pas gênant (le nombre à afficher étant toujours croissant si j'ai bien compris).

Autrement, on pourrait aussi utiliser, par exemple, l'unité Console de Rudy Velthuis.

[SergioMaster]

Bonjour,

Attention quand même au fait que la ligne ne sera pas effacée.

c'est pour cela qu'au départ je m'étais obstiné sur le backspace mais je trouvai la boucle inélégante et n'arrivais pas à le faire par séquence escape

NB. je pense que maintenant, non pressé par le temps, la séquence escape pourrait de programmer ainsi write(#27+Format('[%dD',length(n.tostring)]));

Mais je suppose que dans le cas présent ce n'est pas gênant (le nombre à afficher étant toujours croissant si j'ai bien compris).

tu as bien compris, il s'agit juste d'un contrôle de progression (j'aurais pu mettre quelque chose de plus sophistiqué comme par exemple un pourcentage de progression mais cela n'en valait pas la peine.

Autrement, on pourrait aussi utiliser, par exemple, l'unité Console de Rudy Velthuis.

je l'avais vu mais une fois de plus, l'ajout de cette unité n'en valait pas la peine