Rhytmus

[Binärbaum]

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