Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.153 Beiträge
Delphi 12 Athens
|
Re: Wörterbuch Datei
26. Okt 2009, 14:14
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}
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
|