also, ich habs so gemacht (und es funzt):
Delphi-Quellcode:
procedure wait(zeit:integer);
var
anfang, ende:integer;
begin
anfang:=time;//time ist die aktuelle systemzeit
repeat
Application.Processmessages;//damits eben NICHT einfriert
ende:=time; //zeit wird genommen
until millisecondabetween(anfang, ende)>=zeit;
//millisecondsbetween, grosses rätsel, was tut die function?????
//richtig!!!!! millisekunden zwiuschen zwei daten / zeiten....
end;
//ja, und das wars auch schon
also, bei mir funzt es so (delphi 6)