Re: DELPHI

Article View: be.comp.programming

Article #5865

Back to be.comp.programming Previous Next

#5865

From: Rene A
Date: Fri, 21 Feb 2003 09:08

33 lines
1753 bytes

"Ivan Van den Bossche" <i.vandenbossche@vinke.com> schreef in bericht
news:3e55e6d0$0$81502$ba620e4c@news.skynet.be...
> Hi,
>
> Ik heb een vraagje ivm Delphi.  Hoe kan ik op een eenvoudige manier een
> Delphi programma enkele seconden laten wachten vooraleer verder te gaan?
>

Het kan met  :

Sleep(1000); // 1 sec pauze

Alleen is dat niet zo'n mooie manier omdat voor deze pauze 100%
processortijd word gebruikt, Beter kun je dit gebruiken :

Procedure TForm1.Pauze(Tijdje:LongInt);
var
 T: LongInt;
begin
 T := GetTickCount + Tijdje;
 repeat
  Application.ProcessMessages;
 until T <= GetTickCount;
end;

Pauze(1000); // 1 sec. pauze


--

Rene
Http//www.EasyFactuur.com

Technical Details

Message-ID: <3e55ec73$0$49098$e4fe514c@news.xs4all.nl>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-03!sn-xit-01!sn-xit-09!supernews.com!news.maxwell.syr.edu!transit.news.xs4all.nl!newsfeed.xs4all.nl!xs4all!not-for-mail

References: <3e55e6d0$0$81502$ba620e4c@news.skynet.be>

Show Full Headers

Complete Article Headers

X-Google-Language: DUTCH,ASCII-7-bit
X-Google-Thread: 107324,f934e7d76b7cf4cd
X-Google-Attributes: gid107324,public
X-Google-Thread: fcea4,f934e7d76b7cf4cd
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2003-02-21 01:08:47 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-03!sn-xit-01!sn-xit-09!supernews.com!news.maxwell.syr.edu!transit.news.xs4all.nl!newsfeed.xs4all.nl!xs4all!not-for-mail
From: "Rene A" <Enersoft@xs4all.nl>
Newsgroups: be.comp.programming,nl.comp.programmeren
References: <3e55e6d0$0$81502$ba620e4c@news.skynet.be>
Subject: Re: DELPHI
Date: Fri, 21 Feb 2003 10:08:16 +0100
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1106
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1106
Lines: 36
Message-ID: <3e55ec73$0$49098$e4fe514c@news.xs4all.nl>
NNTP-Posting-Date: 21 Feb 2003 10:08:03 CET
NNTP-Posting-Host: 24.132.89.204
X-Trace: 1045818483 news.xs4all.nl 49098 enersoft/24.132.89.204:28365
X-Complaints-To: abuse@xs4all.nl

Reply to Parent Message