Tp7, procedure nao para em read.

roy · 16 de outubro de 2002

Estou tendo problemas com um programa de BD na parte de editar uma variavel do arquivo,

onde


arqQuest :file of tQuestao

e


tQuestao = record
                 enunciado : string[100];
 alt1,alt2,alt3,alt4,alt5 : string[20];
                   resposta : integer;

"editaQuestaNu" é o nº da questão a ser editada.

O procedure é este(assign já foi dado antes do procedure):


procedure editaalt1;
      begin
            reset(arqQuest);
            seek(ArqQuest,editaQuestaNu);
            writeln('Escreva a nova alternativa.');
            read(questao.alt1);
            if questao.alt1='' then
            questao.alt1:='alt1';
            write(arqQuest,questao);
            Write('alt1');
            readkey;
            close(arqQuest);
      end;

O problema q estou encontrando é q: QUESTAO.ALT1 estava assumindo sempre o valor de '' (nada), quando eu coloquei, esse if ele sempre fica com valor 'alt1',

já tentei assim:


procedure editaalt1;
      begin
            reset(arqQuest);
            seek(ArqQuest,editaQuestaNu);
            writeln('Escreva a nova alternativa.');
            repeat 
            read(questao.alt1);
            Until questao.alt1='';
            write(arqQuest,questao);
            Write('alt1');
            readkey;
            close(arqQuest);
      end;

nesse caso o prog entra como se fosse em loop infinito, não para, só com CTRL+ALT+DEL ou CTRL+Break

Alguem tem algum ideia de como corrigir esse erro?

Só não mandei o codigo fonte inteiro porque tem mais de 30kb...

Obg a quem teve paciência de ler até aqui e mais ainda a quem responder.

tchau

Edy Junior · 18 de outubro de 2002

Na hora de ler questao.alt1 em vez de read, põe readln. Se ainda não funcionar, põe ln em todos os read e writes. O ln funiona com se fosse um flush buffer!

DanielKO · 18 de outubro de 2002

Exato. Read é para ler de arquivos. Readln lê tanto de arquivos quanto do console.

roy · 18 de outubro de 2002

Não funcionou.

Algum d vocês poderia mandar uma mensagem com e-mail? então eu enviaria um e-mail para vocês com o PAS para vocês darem uma olhada...

valeu

11 de novembro de 2002

Cara... não sei se isso pode resolver seu caso... mas uma vez eu fiz um programa que estava dando erro por causa da ideentação... ele não lia um comando por que estava com a identação errada.... tenta identar seu programa direitinho.... pode ser bobagem.... mas pelo menos vai te ajudar a ter um código mais legivel...

Um abraço...