Bufor Klawiatury i funkcja Keypressed no i BIOS

0

witam
mój kod wygląda mniej więcej tak że napierw sprawdza czy keypressed ma wartość true. jeśli tak to program idzie sobie dalej. parę instrukcji writeln. I w końcu instrukcja ch:=readkey. Chcę żeby zmienna znakowa "ch" przyjmowała wartość taką jaką wpiszę. Ale tutaj pojawia się problem. W buforze klawiatury jest jeszcze poprzedni znak przy okazji wywołania funkcji keypressed. I w ten sposób użytkownik nie widzi tychże instrukcji writeln a są one dosyć istotne.

I teraz tak
jak napiszę dwa razy pod rząd
ch:=readkey;
ch:=readkey;

to jest spoko. Pierwszy raz zmienna ch przyjmuje wartość tą co wpisałem przy funkcji keypressed. Drugi raz już normalnie czeka aż coś wpiszę i użytkownik wreszcie widzi te wcześniejsze instrukcje writeln. Jednak moim zdaniem trochę niefajnie wygląda dwa razy to samo. Czy nie ma funkcji, która z pomocą BIOS-u kasowałaby bufor klawiatury, a funkcji keypressed dawałaby wartość false. Bo nie znalazłem w żadnym manualu. Chodzi mi o to że w C jest taka opcja, i na pewno będzie takowa w Pascalu, z tym że właśnie jest ona dosyć głęboka, bo korzysta z instrukcji BIOS-owych

czy ktoś wie może jaka? w końcu musi ładnie kod wyglądać:):):)

pozdrawiam

0

nie mam pojęcia, no ale zawsze możesz zrobić swoją prockę:

procedure czyscBufor;
begin
while keypressed do readkey;
end;

;P

1 użytkowników online, w tym zalogowanych: 0, gości: 1