suite au post de JPNuage http://www.developpez.net/forums/d81...ltiplateforme/ , j'ai eu l'idée suivante , écrire une séquence directement sur la sortie standard mais ....

voici l'essai, encore que je ne soit pas encore sur la séquence
cependant , a priori , ouvrir un fichier vide , n'ouvre pas la sortie standard
je me retrouve avec diskfull

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.Button3Click(Sender: TObject);
var F : TextFile;
begin
  AssignFile(F,'');
  Rewrite(F);
  write(F,format('\33[10;%d]\33[11;%d]\a\33[10]\33[11]',[400, 100]));
  Flush(F);
  // ou writln(F, etc.....)
  Closefile(F); 
end;
une autre idée , l'utilsation de dbgout mais là je doit avouer mon incompétence