Zitat von
Orhan:
Sie haben vollkommen recht Herr Binärbaum
Ich habe es nicht ganz genau erklären können.
Die Qualitet des Samples ist OK.
Es kommt zu Zeitverzögerungen.
Danke
Ach so ist das, Herr Orhan.
Die Verzögerungen liegen vielleicht am Timer (ist aber auch nur eine Vermutung).
Stattdessen könnte man auch GetTickCont verwenden:
Delphi-Quellcode:
procedure Warten(ms: Cardinal);
var zeit: Cardinal;
begin
zeit:= GetTickCount;
while ((GetTickCount-zeit)< ms) do
Application.ProcessMessages;
end;
...
//Beispielaufruf
Warten(1500);//1500 Millisekunden=1,5 Sekunden lang warten
Die Prozedur wartet die im Parameter
ms angegebene Anzahl von Millisekunden und fährt dann im Programmablauf fort.
Es gibt auch noch eine weitere Variante, wie man mit Hilfe der
API einen Timer setzen kann (also auch ohne Timer-Komponente), aber ich weiß nicht mehr genau, wie das ging.
Allerdings dürften diese Varianten nicht sehr hilfreich sein, wenn man (aus Versehen?) den Code gelöscht hat.
Dann bliebe noch die Möglichkeit, das Programm komplett neu zu schreiben, aber das kann man wohl kaum jemandem zumuten, vor allem bei umfangreicheren Projekten.
MfG
Binärbaum