---
title: "sleep?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/programmering/27930-sleep"
topic: "Programmering"
topic_url: "https://www.webforum.nu/amne/programmering"
author: "FreeZer"
published: "2001-09-21T18:58:00.000Z"
updated: "2001-09-25T06:22:00.000Z"
replies: 3
views: 449
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/programmering/27930-sleep"
---

# sleep?

## #1 — FreeZer, 2001-09-21T18:58Z

Om man använder: "sleep(100);"
så står programmet helt stilla under den tiden.

Hur ska jag skriva om jag vill att den ska upprepa en funktion och bara vänta i 100ms, inte frysa programmet i 100ms?

Permalänk: https://www.webforum.nu/p/27930

## #2 — MattiasW, 2001-09-24T08:29Z

Läs detta:
 <http://www.drbob42.com/uk-bug/hood-08.htm>

Permalänk: https://www.webforum.nu/p/400711

## #3 — FreeZer, 2001-09-24T13:56Z

Sidan kan inte visas... ;)

\------------------
^FreeZer^

Permalänk: https://www.webforum.nu/p/400712

## #4 — MattiasW, 2001-09-25T06:22Z

Nu kan den det.

Exempel från sidan:
\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600"\>
  program Hood8;
  uses
    WinProcs, Forms, WinCrt;

    procedure Sleep(MilliSecondsToWait: LongInt);
    var StartTime: LongInt;
    begin
      StartTime := GetTickCount;
      while (GetTickCount \>= StartTime) and
            (GetTickCount \< (StartTime + MilliSecondsToWait)) do
        Application.ProcessMessages
    end {Sleep};

  var i: Integer;
  begin
    writeln(GetTickCount);
    for i:=1 to 10 do
    begin
      Sleep(i \* 1000);
      writeln(GetTickCount);
    end
  end.

Permalänk: https://www.webforum.nu/p/400713

---

Tråden på webben: https://www.webforum.nu/amne/programmering/27930-sleep