Turbo Pascal -delay i keypress

0

Czesc
Moglbym kogos prosic o podeslanie 2 procedurek delay i keypressed. Moze troche wyjasnie w programie nie moge uzyc modulu crt wiec nie pozostaje nic innego jak napisanie tych procedurek. Delay najlepiej jako procedura do ktorej podaje sie parametr opoznienia. Jesli ktos ma jakis pomysl to bede wdzieczny za pomoc procedurki nie musza byc koniecznie w assemblerze, ale warunkiem jest by zajmowaly malo pamieci tzn kazdy bajt sie liczy wiec raczej odpada mnozenie, dzielenie przez duze liczby itp. Z gory dzieki dla tych ktorzy mi pomoga, a prosilbym jesli mozna o komentarze jesli beda w assemblerze, bo niestety tutaj moja wiedza jest bardzo skromna)

0

Jesli nie mozesz uzyc crt, bo pojawia sie blad: 'divizion by zero' to albo zalatw sobie path'a albo Borland Pascal 7.1!
{hello}

0

:( nie o to chodzi, musze zoptymalizowac pewien program pod wzgledem pamieciowym w tym celu wlasnie wyrzucam crt i potrzebuje tych 2 wstawek

0

Delay mozna zastopic pusta petla, oto procka:

procedure Czekaj(Czas:longint);
var
i:longint;
begin
for i:=1 to Czas*40000000 do
begin

end;

end;

{hello}

0

Jesli zalezy Ci na dokladnosci czasu zerknij tez na topic:

http://www.4programmers.net/forum/index.php?action=show&id=25681

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