Unit dos

Daneil igor · 30 de maio de 2010

eu estou tentando usar a procedure setcbreak, atribuindo false a ela, mas

quando eu faço o programa abaixo ela continua true...

ex:


Program teste;
uses
crt,dos;
var
ver:boolean;
begin
CLRSCR;
setcbreak(false);
getcbreak(ver);
Writeln(ver);{ao invés de aparecer FALSE, aparece TRUE }
readkey;
end.

Eu queria saber porque isso n esta dando certo

valeu

Simon Viegas · 30 de maio de 2010

eu estou tentando usar a procedure setcbreak, atribuindo false a ela, mas

quando eu faço o programa abaixo ela continua true...

ex:

Program teste;
uses
crt,dos;
var
ver:boolean;
begin
CLRSCR;
setcbreak(false);
getcbreak(ver);
Writeln(ver);{ao invés de aparecer FALSE, aparece TRUE }
readkey;
end.
Eu queria saber porque isso n esta dando certo

valeu

Olá, fiz alguns teste aqui com o seguinte código:

Program teste;
uses
crt,dos;
var
ver:boolean;
begin
CLRSCR;
setcbreak(false);
getcbreak(ver);
Writeln(ver);
setcbreak(true);
getcbreak(ver);
Writeln(ver);
setcbreak(false);
getcbreak(ver);
Writeln(ver);
readkey;
end.

RESULTADO ESPERADO:
FALSE

TRUE

FALSE

No Turbo Pascal 7.1 o valor é alterado normalmente, já no Free Pascal Compile (usando NotePad++) todos os valores saem como TRUE.

Apesar de serem poucos teste (dois compiladores) eu acredito que "esse bug" pode está relacionado a "plataforma do SO", ou seja, o TP7 está em ambiente DOS (aqui uso um DOS emulado no Seven, mas acredito que pelo o CMD o resultado seja o mesmo) o resultado é alterado, mas em ambiente Windows não!!! Possa ser que o SO (Windows) não esteja permitindo desativa o recurso "Ctrl+C"...

Qual é o seu compilador? É via Windows ou DOS?

Fiquei curioso também

Abraços