Hallo Sir Rufo,
richtig,meine Frage wurde schon beantwortet.
Ich habe nur die Prozedur vervollständigt,wie es gewünscht wurde.
Zitat:
(ok, evtl. eine Zeitschleife gegen Timingprobleme)
Also eine Zeitverzögerung einbauen und das
inc(vListe); weglassen?
Sowas in dieser Art z.B.:
Delphi-Quellcode:
procedure pause(zeit:longint);
var zeit1:longint;
begin
zeit1:=GetTickCount;
repeat
application.ProcessMessages;
until (GetTickCount-zeit1 > zeit);
end;
Mfg
AnfängerDelphi