Bonjour !

J'ai voulu retoucher l'unité Console de Rudy Velthuis (qui est une réplique de l'unité Crt) pour la rendre compatible avec Free Pascal.

http://rvelthuis.de/programs/console.html

Voici les trois modifications que j'ai faites. Je précise que j'ai compilé en mode Delphi.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
  //ScrollConsoleScreenBufferA(StdOut, Rect, @Rect, NewPos, Fill); // Error: Incompatible type for arg no. 3: Got "Pointer", expected "SMALL_RECT"
  ScrollConsoleScreenBufferA(StdOut, Rect, Rect, NewPos, Fill);
 
  //ReadPtr := T.BufPtr; // Error: Incompatible types: got "TextRec.^TextBuf" expected "PChar"
  ReadPtr := PAnsiChar(T.BufPtr);
 
  //SetInOutRes(GetLastError); // Error: Identifier not found "SetInOutRes"
Je pense que les deux premières corrections sont bonnes. En revanche je n'ai pas trouvé de remplacement pour la procédure SetInOutRes() qui (si j'ai bien compris) permet de régler la valeur de la variable (?) IOResult. Auriez-vous une idée ?