Wörterbuch Datei

[himitsu]

und hier machst du JEDESMAL EINE PAUSE VON 100 ms

Delphi-Quellcode:

start := gettickcount; 
repeat 
  stop := gettickcount; 
  application.processmessages; 
until (stop - start ) >= 100;

und nicht ALLE 100 ms

Delphi-Quellcode:

start := gettickcount;
{schleifenstart}

  ...

  if gettickcount - start >= 100 then
  begin
    application.processmessages;
    start := gettickcount;
  end;
{schleifenende}