Pascal - Unit mouse - Piero Tofy.it

Forum - Pascal - Unit mouse

Poggi Marco (Member)
Guru

Messaggi: 969
Iscritto: 05/01/2010

Postato alle 23:41
Domenica, 14/02/2010

Ciao a tutti!

Ho un problema con questo programma:

Codice sorgente - presumibilmente Delphi

program ProvaMouse;
uses crt, mouse;
 
var a:string;
 
begin
 InitMouse; (* Inizializzazione del mouse *)
 clrscr;
 write('Inserire una frase ');
 readln(a); (* A questo punto il programma si blocca *)
 writeln;
 writeln('Testo letto: ',a);
 readln;
 DoneMouse; (* Chiusura del controllo sul mouse *)
end.

Non riesco a gestire il controllo del mous e l' input da tastiera contemporaneamente.
Come posso risolvere il problema?

Grazie!

Phi (Member)
Expert

Messaggi: 241
Iscritto: 30/12/2009

Postato alle 18:04
Martedì, 16/02/2010

Penso dipenda dal fatto che debba essere preceduta da DONEMUOSE.

cioè dal fatto che non possano essere letti insieme il mouse(colla unit mouse) e una string (da "readln"). Utilizzando Free Pascal è così. Sarà così anche nel tuo caso.

Poggi Marco (Member)
Guru

Messaggi: 969
Iscritto: 05/01/2010

Postato alle 18:10
Martedì, 16/02/2010

Grazie per la risposta!

Anche io utilizzo Free Pascal, quindi seguirò il tuo consiglio.

Phi (Member)
Expert

Messaggi: 241
Iscritto: 30/12/2009

Postato alle 18:15
Martedì, 16/02/2010

A cosa ti serve, ho caricato poco fa un esempio di utilizzo di Thread.
In pratica più processi contemporaneamente, è così che fanno funzionare le applicazioni grafiche.
Guarda se ti può servire.

Poggi Marco (Member)
Guru

Messaggi: 969
Iscritto: 05/01/2010

Postato alle 19:15
Martedì, 16/02/2010

Nulla in particolare.
Stavo solo confrontando la gestione del mouse sul Turbo Pascal 7 e Free Pascal.

Per quanto riguarda le tue recenti pubblicazioni, ti faccio i miei compilmenti!

Lavoro davvero notevole!

Ultima modifica effettuata da Poggi Marco il 16/02/2010 alle 21:49