Forum: Algorithmen, Datenstrukturen und Klassendesign
by Demyxa,
3. Mär 2018
Das würde als Code wie exakt aussehen? :wiejetzt:
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Demyxa,
3. Mär 2018
Ich hab das Forum durchstöbert, konnte aber leide keine Lösung finden.
Mein MediaPlayer läuft 5 Minuten, soll aber in einer Endlosschleife laufen.
procedure TForm1.Label18Click(Sender: TObject);
var
BATK : Real;
begin
if MediaPlayer1.Position=MediaPlayer1.EndPos then //abfrage ob der Player beim Ende ist
begin
MediaPlayer1.FileName:=OpenDialog1.FileName;