Ecrire sur la sortie standard stdout
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 :aie:
cependant , a priori , ouvrir un fichier vide , n'ouvre pas la sortie standard
je me retrouve avec diskfull :pan:
Code:
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
