Jump to content

Search the Community

Showing results for tags 'pascal'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Bem-vindos ao Portugal-a-Programar
    • Sugestões, Críticas ou Dúvidas relativas ao P@P
    • Acerca do P@P
  • Comunidade a Trabalhar
    • Wiki P@P
    • Apresentação de Projectos de Programação
    • Downloads
  • Revista PROGRAMAR
    • Revista PROGRAMAR
  • Desenvolvimento Geral
    • C
    • C++
    • Java
    • Haskell
    • Pascal
    • Python
    • Bases de Dados
    • Dispositivos Móveis
    • Outras Linguagens
  • Desenvolvimento Orientado para Web
    • PHP
    • HTML
    • CSS
    • Javascript
    • Outras Linguagens de WebDevelopment
    • Desenvolvimento Web
  • Desenvolvimento .NET
    • C#
    • Visual Basic .NET
    • ASP.NET
    • WPF & SilverLight
  • Software e Sistemas Operativos
    • Software de Produtividade
    • Sistemas Operativos
    • Apresentação de Software
  • Informática
    • Interfaces Visuais
    • Computação Gráfica
    • Algoritmia e Lógica
    • Segurança e Redes
    • Hardware
    • Electrónica
    • Automação Industrial
    • Matemática
    • Dúvidas e Discussão de Programação
    • Notícias de Tecnologia
  • Outras Áreas
    • Dúvidas Gerais
    • Discussão Geral
    • Eventos
    • Anúncios de Emprego
    • Tutoriais
    • Snippets / Armazém de Código
  • Arquivo Morto
    • Projectos Descontinuados
    • System Empires

Blogs

  • Blog dos Moderadores
  • Eventos
  • Notícias de Tecnologia
  • Blog do Staff
  • Revista PROGRAMAR
  • Projectos
  • Wiki

Categories

  • Revista PROGRAMAR
  • Tutoriais
  • Textos Académicos
  • Exercícios Académicos
    • Exercícios c/ Solução
    • Exercícios s/ Solução
  • Bibliotecas e Aplicações
  • Outros

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Found 929 results

  1. Eu preciso fazer um algoritmo que leia um numero maior que 4, e que mostre dois números primos que compõem a soma desse número!
  2. Wenderson Lisboa

    ANSWERED Instalando pacote OnGuard

    Olá amigos, preciso instalar o OnGuard no Lazarus 2.0.6 e não estou conseguindo, se puderem me explicar o passo-a-passo vos agradeço muito. #EternamentePascal
  3. Rafael aloned da Silva

    Progama sem fim

    Ola pessoal, Eu sou novo em programação. Vocês poderiam me ajudar com um probleminha? Eu quero fazer uma programação mas não consigo fazela pois ela devia ficar aberta para sempre mas ela fica fexando e não consigo terminala. Agradesso por qual quer idea.😁
  4. Mário01

    Calculadora em Pascal

    Pretendo fazer uma calculadora no pascal que possa: 1- Executar operações até que o utilizador interrompa o programa 2- Sejam realizadas operações diversas entre vários valores, não apenas 2 3- Uma opção especial para o cálculo da média aritmética simples de um número variado de valores. Previamente já consegui realizar uma calculadora que apenas fizesse as 4 operações com 2 valores, como se vê em baixo. Gostava que me pudessem ajudar com este problema Este é o programa : program calculadora; uses crt; var n1, n2: integer; conta: real; operacao: char; begin textbackground(blue); textcolor(yellow); (*Primeiro digita-se o valor*) clrscr; writeln ('Digite o primeiro número: '); readln (n1); textbackground(white); textcolor(red); (*Escolhe-se a operação*) writeln('Escolha uma das seguintes operações [+, -, *, /]: '); readln(operacao); textbackground(red); textcolor(blue); (*Insire-se o segundo valor*) writeln ('Digite o segundo número: '); readln (n2); case operacao of '+': conta:= n1+n2; '-': conta:= n1-n2; '*': conta:= n1*n2; '/': conta:= n1/n2; end; textbackground(cyan); textcolor(white); writeln('O valor é ‚: ',conta); Readln; writeln('Obrigado por utilizar a minha calculadora,prima CTRL+C ou Enter para sair'); readkey; end. Nota: Tudo o que tenha haver com cor não interessa
  5. Adelaide

    Erro de sintaxe

    Escrever um algoritmo que leia o nome e o sexo de 5 pessoas e informe o nome e se ela é homem ou mulher. No final informe total de homens, de mulheres, e de casos não identificados (quando o utilizador não respondeu nem M nem F) e eu não sei o que estou a fazer de errado var i, homens, mulheres, nao_identificado: integer; nome, sexo, nao_identificados: char; Begin for i := 1 to 5 do begin writeln ('Escreva o seu nome'); readln (nome); writeln ('Caso seja Mulher, digite a letra M'); writeln ('Caso seja Homem, digite a letra H'); readln (sexo); case sexo of M : writeln(' ', nome,' é mulher' ); mulheres := mulheres + 1; H : writeln(' ', nome,' é homem' ); homens := homens + 1 else writeln(' ', nome,' não está identificado/a'); nao_identificados := nao_identificados + 1; end; writeln ('Foram inseridos ' , mulheres, ' mulheres'); writeln ('Foram inseridos ' , homens, ' homens'); writeln ('Foram inseridos ' , nao_identificados, ' pessoas não identificadas'); readkey; End.
  6. Triton

    Como começar a programar em Pascal

    Para começar a programar em Pascal é preciso um compilador, a ferramenta que transforma o código-fonte escrito num programa executável. Para escrever o código-fonte podem usar um editor de texto, como o Notepad++ ou o PSPad ou então usar um IDE, um ambiente de desenvolvimento integrado, que permite não só escrever o código fonte mas executá-lo directamente do mesmo sítio, entre outras coisas. Em último caso, o Notepad do Windows também permite escrever o código-fonte. Existem vários compiladores/IDEs para Pascal. Ambiente Windows FPC - Free Pascal Compiler download Compilador, vem com um IDE básico Pascal ZIM! download Compilador, vem com IDE Dev-Pascal download IDE, vem com uma versão leve do compilador Free Pascal FPS download IDE, vem com uma versão leve do compilador Free Pascal Se estiverem indecisos, o Dev-Pascal parece uma boa escolha para principiantes. Ambiente UNIX Neste caso, provavelmente já têm tudo o que precisam para começar. Existem vários editores neste ambiente, como o ViM e o EMACS. Para compilar o código podem usar o GPC (GNU Pascal Compiler) ou o FPC (Free Pascal Compiler). Caso não tenham estes programas instalados, consultem a documentação da vossa distribuição para ver como devem instalar novo software. Contudo, para o Free Pascal, o seguinte código na shell deverá instalá-lo: sudo apt-get install fpc Como instalar a versão mais recente do Free Pascal Compiler em distribuições GNU/Linux No repositório oficial na SourceForge, entrem na pasta correspondente à última versão estável e façam o download do ficheiro correspondente ao vosso sistema. Descomprimam o ficheiro, e através da shell, dirijam-se à localização da pasta e digitam o seguinte: sudo sh install.sh Ser-vos-á pedida a localização da instalação. Por defeito será em /usr, pelo que basta premir Enter sem escrever nada. A instalação irá decorrer, mas algumas perguntas serão feitas acerca da instalação de opcionalidades, como a FCL (Free Component Library), documentação e snippets de exemplos. Respondam Y (sim) ou N(não) conforme queiram (recomenda-se a instalação da FCL, no entanto). No final, o Free Pascal estará disponível através do seguinte comando: fpc <ficheiro> Caso tenham dúvidas, podem esclarecê-las nesta secção do fórum. Aprender a linguagem... Agora que já têm todas as ferramentas necessárias, vão precisar de algo para vos guiar na aprendizagem: Tutorial de Pascal (em PDF) http://www.portugal-a-programar.pt/files/file/6-tutorial-de-pascal/ Links úteis (documentação, livros, tutoriais, snippets) Obrigado ao Diablo pela ajuda. Última actualização: 23 Mar. 2014 | Por: thoga31
  7. Miguel Tomas

    Ideias para projeto

    Boa noite, comecei a pouco tempo na escola um curso de programaçao. Pediram me para fazer um projeto em pascal mas o problema é que nao sei o que fazer. Tenho de usar ao máximo tudo o que ja dei(while,case of, for to do, repeat, if,). Será que alguem me podia ajudar? Nao quero codigos feitos nem nada disso, apenas queria alguma ideia do que fazer.
  8. name.pas(6,3) Error: identifier not found "readln" Fatal: Compilation aborted O pas2js tem readln?
  9. Podem ajudar-me a escrever um algoritmo em visualg que converta um número real em horas, minutos e segundos.
  10. Rafael aloned da Silva

    Grupo de ajuda

    Ola pessoal! Eu comecei agora a programar. Criei esse tópico para poder pedir ajuda. Eu quero programar no pascal n-ide (celular) um jogo mas não sei como fazer botões para jogar,como programar o designer etc. PV ajude me.😇😇😀😀☺ Agradesso por lerem.
  11. Larfis

    Eventos no Pascalzim

    Boa tarde, venho hoje pedir ajuda a resolver um problema que tenho no meu programa. O programa é um jogo simples de Pong, no qual eu tenho uma função para User Input (mexer as barras para cima e para baixo). Ela está assim de momento: Procedure TeclaPressionada; begin if keypressed then begin case upcase(readkey) of #0:Begin case upcase(readkey) of #80: desenhoBar('B', 1); #72: desenhoBar('B', 0); end; end; #56: desenhoBar ('B', 0); #50: desenhoBar ('B', 1); 'W': desenhoBar ('A', 0); 'S': desenhoBar ('A', 1); 'P': while (upcase(readkey) <> 'P') do ; 'R': reseter(); 'F': Ajogar:= false; end; end; end; O problema é que ao usar uma função deste tipo, com readkeys, é que apenas uma tecla pode ser pressionada ao mesmo tempo. A minha professora não me deixa fazer o trabalho noutra lingua, e, visto que o público-alvo do dia da apresentação é a turma de sexto ano da professora, é provável que eles joguem sujo e nao deixem o oponente jogar (premindo as suas próprias teclas, o que impede o adversário de jogar). Gostaria de saber se há alguma maneira de usar eventos no pascalzim, de modo a evitar este problema. (E, já agora, se há alguma maneira de rodar executáveis atráves do pascalzim). Obrigado!
  12. Alfonso CV

    Abrir Gaveta de dinheiro

    Olá galera. Estou a apresentar problemas ao tentar abrir a minha gaveta de dinheiro pela aplicação "Lazarus", eu utilizo uma impressora fiscal de talão USB e já tentei abrir de varias formas diferentes e não consigo, alias, para Lazarus em google com porta USB não encontro nada. Já fiz testes colocando diretamente na impressora no comando antes de imprimir e trabalha lindamente abrindo a gaveta mas preciso administrar isso pela aplicação e não mandar aos clientes a ter que mexer na impressora. Alguma dica por favor??? Cumprimentos....
  13. Faustino

    Erro na leitura de ficheiros

    Fiz este programa em pascal: Program Pzim ; type pessoa=record nome:string; idade:integer; end; var f:file of pessoa; p:pessoa; x:integer; Begin assign(f,'pessoa.dat'); {$I-} reset(f); if ioresult<>0 then rewrite(f); {$I+} repeat write('Insira o nome: '); readln(p.nome); if upcase(p.nome)<>'FIM' then begin write('Idade: '); readln(p.idade); write(f,p); end; writeln; until upcase(p.nome)='FIM'; close(f); reset(f); clrscr; gotoxy(1,1); write('Nome'); gotoxy(35,1); write('Idade'); x:=3; while not eof(f) do begin read(f,p); gotoxy(1,x); write(p.nome); gotoxy(35,x); write(p.idade); x:=x+1; end; close(f); End. Entretanto quando é para listar os dados da lista, alem de o primeiro de sobrepor ao anterior, ele apenas mostra 5 dos dados presentes no ficheiro. Conseguem ajudar? Feito no Pascalzim 6.0.3
  14. 10gpsi

    Records

    Dá para colocar vários records em pascal? se sim, como o faço?
  15. Olá galera. Me esta a acontecer o seguinte. Tenho uma app já desenvolvida e em "produção" desde a versão 1.6 de Lazarus, até lá todo bém. Resulta que a semana anterior fiz upgrade da versão 1.8 para a 2.00 de Lazarus e todo perfeito, mas a principio de semana quando os clientes começarem a explorar o sistema inicio-se a catástrofe. Quando vou a gravar una transacção que inclui mais duna sentencia SQL o sistema compilado com a versão 2.00 me da um erro e antes não, isso sem cambiar uma linha de código. Sublinho que isto não sucedia antes. Fazendo um "debugger" (depurando o sistema) tomo las sentencias SQL para PostgreSQL que dá erro desde o sistema e a modo de exemplo: UPDATE app.a_arbol SET cod='00096',descrip='MTCV' WHERE id=5200; UPDATE app.a_pt SET longitud=-23.491440000000,latitud=14.919906000000,control_ip=0,circuito_comando=True,comentario='', potencianominal=20.0,tipofornecimento=1,estado=True WHERE idarbol=5200; as coloco no analisador de consultas do pgadmin de Postgres e correm perfeitamente mas se executo esta mesma sentencia desde o programa me da o error anterior. E, o erro no sucede solo com estas sentencias, sino sempre que envio para PostgreSQL mas de una como por exemplo quando desejo eliminar registos de tabelas pais e filha, ou também quando desejo INSERTAR mais dum registo numa tabela e assim..... Busque em outros forum mas a única coisa que vi é a sugestão para fazer transacções sentencia a sentencia mas se necessito por exemplo carregar uma tabela com 1000 registo resulta menos custoso em termos de tempo preparar uma query com todas as linhas e depois enviar que não ficar a enviar linha a linha. Assim fazia em versões anteriores a 2.00 de Lazarus sem dificuldades. Alguem sabe si para la versión esta de Lazarus 2.00 y Zeos 7.2.4 existe algum parâmetro o propriedade nova que permita fazer/definir transacciones simples o complexas com múltiplas sentencia?. Cumprimentos. Alfonso Arias Lemas
  16. DiamondStyle

    Remover espaços em braco de uma String ?

    Olá pessoal, Eu gostaria de saber se alguém sabe como eu faço para retirar os espaços no meio da string. Ex: Nome: \"Alberto Silva\", e o programa deve retornar \"AlbertoSilva\".
  17. Hélder Viegas

    E-Factura

    Boas! Novato no forum, cota na idade e na profissão... Sou TOC, CC ou lá o que os manda chuvas queiram chamar... Preciso de uma aplicação que leia o EFACTURA e grave para um ficheiro excel ou csv com matérias colectáveis e com valores de IVA. Aguardo propostas. Obrigado
  18. Boa Tarde, estou Criando um programa de euromilhões para que o Utilizador indique a chave do euromilhoes e Compare com a Chave dada pelo random e diga se é Vencedor ou não mas Meu Problema está no ordenar a Chave dada pelo random e não permitir Sair valores repetidos. Agradecia vossa Ajuda program Euromilhao; uses crt; var E,i:integer; Num:Array[0..5] of integer; Est:Array[0..2] of integer; CNum:Array[0..5] of integer; CEst:Array[0..2] of integer; begin For I:=1 to 5 do Begin Writeln('Insira os Seus Numeros'); Readln(CNum); end; For i:=1 to 2 do Begin Writeln('Insira as Estrelas'); Readln(CEst); End; Randomize; For i:=1 to 5 do Begin Num:=random(49)+1 end; Writeln('Numeros :', ' ', Num[1],' ',Num[2],' ',Num[3],' ',Num[4],' ',Num[5]); For E:=1 to 2 do Begin Repeat Est[E]:=random(11)+1; Until (Est[1]<>Est[2]); end; Writeln('Estrelas :', ' ',Est[1],' ', Est[2]); Writeln(' '); if (CNum=Num) or (CEst=Est) then Writeln('Voc',char(136),' Ganhou') Else Writeln('Voc',char(136),' Perdeu'); Readln(); end.
  19. BHAMF

    Como transformar String em PChar

    Um tópico informativo é este. Não achei nenhum conteúdo sobre isto por aqui, então resolvi postar como que conseguimos transformar uma string em PChar. A dúvida surgiu quando eu estava utilizando um comando em que um de seus parâmetros era PChar, porém eu não conseguia por si só, guardar informações que o utilizador digitava direto na variável PChar, e nem passar a informação de uma string para um PChar: [...] procedure SndPlaySound(name : PChar, TypePlay : integer); .[...] Var mus : PChar; mus2 : String begin [...] readln(mus); //isso não era possível, pois dava o erro "can't read or write variables of this type" SndPlaySound(mus, 1); ////////////////////////// //nem isto era possível: readln(mus2); mus := mus2; //pois dava o erro "Incompatible types "AnsiString" and "PChar" então, a maneira que eu achei de resolução foi esta função das profundezas da internet: // // Apenas tens de colocar a variável que desejas que seja transformada em PChar: PChar(variable); //daí podes usar com algum atributo, etc. Vejam os exemplos. Ex.: [...] var mus : PChar; mus2 : string; begin [...] readln(mus2); mus := PChar(mus2); //isto já daria certo! SndPlaySound(mus, 1); {ou desta maneira também} readln(mus2); SoundPlaySound(PChar(mus2), 1); //perfeito! Era isto! Valeu pessoal, espero que tenham gostado! Caso tenham mais propostas, melhoras, podem mandar. B.H.A.M.F, Natal, RN. Brasil. 25/12/2018 | 14:21 (Horário de Brasília)
  20. BHAMF

    Como imprimir algo em Pascal

    Observação: Variáveis não declaradas nesta procedures estão declaradas em outra parte do programa. Estou com uma dúvida sobre como imprimir algo em Pascal, utilizei o seguinte código para um programa que estou fazendo mas a impressora nem deu sinal de que iria imprimir, o código compilou sem nenhum erro. A impressora utilizada era EPSON e era USB. código usado: O objetivo era imprimira dados de um cliente que iria fazer uma viagem. procedure impressaoDeDados; var R : string; begin clrscr; gotoxy(2,2); write('Tem certeza que deseja imprimir as informa'#135#228'es do cliente ', cliente.escolha, '?'); // Cliente.escolha é a variável que diz o número do cliente. writeln; write('S/N: '); readln(R); if (R = 'S') or (R = 's') or (R = 'SIM') or (R = 'Sim') or (R = 'sim') then begin writeln; write('Imprimindo os dados...'); // Só aparecia a mensagem até aqui, o programa não fechava nem nada. writeln; PRINTCENTER('Impress'#198'o de informa'#135#228'es do cliente | GDV'); write(LST, 'Dados do cliente', cliente.escolha, ' da se'#135#198'o/ viagem ', identificacao_ADD_DEL2, '...'); writeln(LST); write(LST, 'Nome do cliente: ', cliente.nome); writeln(LST); write(LST, 'Telefone do cliente: ', cliente.tel); writeln(LST); write(LST, 'Data de anivers'#160'rio do cliente: ', cliente.dataAniv); writeln(LST); write(LST, 'Identidade/CPF do cliente: ', cliente.Ident); writeln(LST); write(LST, 'Data de ida do cliente: ', cliente.datIda); writeln(LST); write(LST, 'Data de volta do cliente: ', cliente.DatVLT); writeln(LST); write(LST, 'Tipo de pagamento efetuado pelo cliente: ', cliente.PagType); writeln(LST); write(LST, 'Valor do pagamento efetuado pelo cliente: ', cliente.PagVal); writeln(LST); write(LST, 'Finalizado. GDV ( Gerenciamento de Viagens ).'); write(LST, #12); writeln; write('Finalizado. Tecle ENTER.'); readln; clrscr; tela_inicial; end else begin if (R = 'N') or (R = 'n') or (R = 'NAO') or (R = 'Nao') or (R = 'nao') or (R = 'N'#199'O') or (R = 'N'#198'o') or (R = 'n'#198'o') then begin end else begin end; end; end; procedure PRINTCENTER (MENSAGEM : string); var posicao : BYTE; begin posicao := 40 + length(MENSAGEM) div 2; writeln(LST, MENSAGEM:posicao); end;z Espero uma ajuda, obrigado desde já! Brasil, 21:07 | 23/09/2017 (Horário de Brasília)
  21. Como posso mover o ponteiro do arquivo em Pascal??
  22. Olá, Trago aqui um método para se "interromper" um Delay. Para quem não sabe, o Delay é um procedimento que congela o programa por um determinado tempo (em milisegundos). Procedure Delay(MS: Word); // Cabeçalho do procedimento Delay Então, não há meios de se interromper um Delay em tempo de execução (a menos que você finalize o programa de alguma forma ). Mas, há uma forma de se trabalhar para que se possa burlar o "Delay", utilizando laços de repetição. É bem simples, não tem muito mistério. O que é feito, é utilizar repetidas vezes o Delay(1); até somar o tempo total, e por também uma condição de parada. Então, o Delay poderá ser "interrompido" ou não. Exemplo (onde a condição, é uma tecla ser pressionada) : Program InterromperDelay; Uses Crt; Const Segundos = 1000; Var I, TempoDelay: Integer; Interrompido: Boolean; Begin Interrompido := False; TempoDelay := 3 * Segundos; WriteLn('ENTRANDO NO DELAY..'); For I := 1 To TempoDelay Do Begin Delay(1); If (KeyPressed = True) Then Begin ReadKey(); Interrompido := True; Break; End; End; If (Interrompido = True) Then Begin WriteLn('DELAY INTERROMPIDO!'); End Else WriteLn('DELAY NAO FOI INTERROMPIDO!'); End. ou, para quem viu o último tópico: Program InterromperDelay; Uses Crt; Const Segundos = 1000; Var I, TempoDelay: Integer; Begin TempoDelay := 3 * Segundos; WriteLn('ENTRANDO NO DELAY..'); For I := 1 To TempoDelay Do Begin Delay(1); If (KeyPressed = True) Then Begin Break; End; End; If (KeyPressed = True) Then Begin ReadKey(); WriteLn('DELAY INTERROMPIDO!'); End Else WriteLn('DELAY NAO FOI INTERROMPIDO!'); End. Espero que tenham entendido a lógica PS: Estou começando um canal no youtube, o foco é desenvolver coisas em Pascal. Quem quiser dar uma olhada, segue o link.
  23. BHAMF

    Pesquisa

    Olá! Preciso da ajuda de vocês, vocês já tentaram usar o CTRL+F do Google Chrome? Bom, estou querendo usar este método de pesquisa, alguém pode me ajudar? Não tenho nem ideia de como se faz isto. Obrigado desde já! B.H.A.M.F 13/10/2016 17:53 (Horário de Brasília)
  24. BHAMF

    cases com funções repetidas

    Há como fazer uma coisa semelhante a isso com estruturas de repetição: var Counter : integer; begin for Counter := 1 to 20 do begin counter := counter + 1; //funções para este for end; end. //do mesmo jeito, queria em case ou IFs. case var of //em vez de 1: begin, end; 2, begin, end; fazer logo de 1 até 20, como na criação de uma array: [a..20] //seria possível? end; ? Obrigado desde já. B.H.A.M.F. 26/12/2018 | 18:21 (Horário de Brasília) Natal, RN. Brasil.
  25. Olá, Estava desenvolvendo um jogo no estilo, "Reaction Time Test". Quando, me deparei com o seguinte problema: - Se o jogador apertasse alguma tecla durante o delay, então, após a saída do delay, imediatamente era contado como se o jogador tivesse pressionado uma tecla. Ou seja, seu tempo de reação era de 0.000 segundos, burlando o jogo. Nesse momento, meu código estava assim: Program ReactionTimeTest; Uses Crt; Const Sec = 600000; Var Tempo: Double; Contador: LongInt; Begin Repeat Tempo := 0; Contador := 0; Delay(Random(3000 - 1500) + 1500); WriteLn('VAI!'); While (KeyPressed = False) Do Begin Contador := Contador + 1; End; Tempo := Contador / Sec; WriteLn('TEMPO: ', Tempo:0:3, 's.'); Until (False); End. Então pensei, isso é simples de se resolver, e cheguei nisso: Program ReactionTimeTest; Uses Crt; Const Sec = 600000; Var Tempo: Double; Contador: LongInt; Begin Repeat Tempo := 0; Contador := 0; Delay(Random(3000 - 1500) + 1500); WriteLn('VAI!'); If (KeyPressed = False) Then Begin While (KeyPressed = False) Do Begin Contador := Contador + 1; End; Tempo := Contador / Sec; WriteLn('TEMPO: ', Tempo:0:3, 's.'); End Else ReadKey(); Until (False); End. Agora vai dar tudo certo! - SÓ QUE NÃO.. O bug ainda existia só que pior, o programa ficava repetindo o delay, até o número de vezes que apertei alguma tecla.. Depois de algum tempo tentando cheguei nessa solução, Repeat Erro := False; If (KeyPressed = True) Then Begin ReadKey(); Erro := True; End; Delay(10); Until (Erro = False); SOLUÇÃO: Ler todas as teclas pressionadas até esvaziar o buffer do teclado. A criação deste tópico, foi apenas para compartilhar a minha solução(não sei se existe outra) de como resolver o bug do delay.
×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.