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
une autre idée , l'utilsation de dbgout mais là je doit avouer mon incompétence
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;
Partager