Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Wait(Time)?

    Delphi
    by Teddyman, 31. Mär 2004
  Also, d.h.:
  
  procedure Delay(dwMilliseconds: Longint);
  var
  iStart, iStop: DWORD;
  begin
  iStart := GetTickCount;
  repeat
  iStop := GetTickCount;
  Application.ProcessMessages;
• Forum: Sonstige Fragen zu Delphi

  Wait(Time)?

    Delphi
    by Teddyman, 31. Mär 2004
  Hallo,
  habe folgende Wait procedure benutzt:
  
  procedure Wait(time:word);
  var start: integer;
  begin
  start := GetTickCount;
  while GetTickCount - start <= time do
  Application.ProcessMessages;
  end;