Pascal

[njr]

O que o comando READKEY faz no Pascal!?

[Hall Maru]

De qual biblioteca é este comando? Aqui não achei ele não...

[njr]

ixi, nem sei não!

pelo que sei, esse comando dá uma pausa no programa, e quando você digita qualquer tecla ele volta a rodar o programa.

Mas o que eu quero fazer é um programa que peça um número, e quando eu digito ele (um caracter) o programa já passa pra proxima etapa, sem eu ter que pressionar <ENTER>.

como faz?

[Hall Maru]

Cara em pascal não sei como faz isso não, fiz uma function em assembly que faz isso, mais no meu Delphi não funcionou (não sei porque ele não chama nenhum interruptor) bom aqui vai a função, ela funcionou quando eu compilei em assembly puro:

function GetKeyStroke(): char;

asm

mov ah, 0

int 16h

end;

teoricamente devia funcionar no Delphi, pois esta interrupção (16h / AH = 00h) pega o teclado e envia o resultado para al, se não funcionar posta de novo que tento alguma coisa aqui.

[Hall Maru]

Aqui ta o código do que fiz em assembly, compila ai ou poe em algum emulador de assembly que funciona normal:

name "Programa"
org  100h
;Aqui é o que você quer, ele pega a tecla e não espera o enter
mov ah, 0
int 16h
;Aqui ele fica escrevendo a tecla que pegou em um loop infinito
mov ah, 6
mov dl, al
PRINT:
int 21h
jmp PRINT
ret

[EduardoS]

Hall Maru,

Isso é assembly para DOS, 16bits, não vai funcionar no Delphi,

No windows 32bits você chama interrupções, apenas funções de APIs.

[Hall Maru]

Entendi, valeu pelo esclarecimento, estava ficando inconformado com isso já , mais deve ter alguma função para ajudar o njr, eu so não sei qual

[EduardoS]

Você já tentou:

var := readkey;

[njr]

Postado Originalmente por EduardoS@22 de abril de 2006, 14:16

Você já tentou:

var := readkey;

←

valeu.... deu certinho desse jeito ai!

só que eu tenho que declarar a variavel "var" ou como "char" ou como "string". Ai se eu quero digitar um número, é só converter ele de caracter pra número inteiro.

Valeu galera!

[ricci_tondatto]

readkey é uma funçao da biblioteca crt q retorna o buffer do teclado, ou seja, ele espera o usuario teclar alguma tecla, mas não a imprime na tela...

[DM2]

Postado Originalmente por ricci_tondatto@29 de abril de 2006, 07:12

readkey é uma funçao da biblioteca crt q retorna o buffer do teclado, ou seja, ele espera o usuario teclar alguma tecla, mas não a imprime na tela...

←

tem esse detalhe. mas ai você pode depois imprimir o conteudo da variavel, caso queira

e você deve declarar a variavel como char.

não vai funcionar com string, ela retorna um caracter apenas, no caso uma tecla

[Kerplunk]

o readkey é muito simples...

serve pra ler um caractere digitado pelo teclado

como já disseram ai em cima, fica na biblioteca CRT...

pra usar essa biblioteca voce coloca antes da declaraçoes de variaveis:

uses CRT;

após isso você pode usar esse comando pra armazenar um caractere em uma variavel do tipo CHAR apenas digitando a tecla, sem a necessidade de pressionar enter, como faria se estivesse usando o comando READ ou READLN. Esse comando tem a utilidade tambem de pausar a tela para exibicao de alguma mensagem antes de fechar o programa. Coloquei abaixo um exemplo de usar esse comando para armazenar um caractere em uma variavel do tipo CHAR. Espero ter ajudado! =)

Program Teste;

Uses Crt;

Var

letra: char;

begin

letra := readkey;

end;

[njr]

opaa... ajudo d++!

valeu!