meine Hilfe sagt dazu...
Zitat:
In diesem Beispiel wird ein HMSRec-Record mit vier Byte-Feldern deklariert. Wenn TimeFormat den Wert tfHMS hat, gibt das erste Feld die Stunden, das zweite die Minuten und das dritte die Sekunden an. Das vierte Feld entspricht dem ungenutzten signifikantesten Byte des tfHMS
-Zeitformats. Der Typ einer LongInt-Variablen wird in einen HMSRec-Record umgewandelt. Danach werden die Stunden, Minuten und Sekunden der Dauer des geladenen Mediums in Beschriftungen angezeigt, wenn der Benutzer auf eine Schaltfläche klickt.
type
HMSRec = record
Hours: byte;
Minutes: byte;
Seconds: byte;
NotUsed: byte;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
TheLength: LongInt;
begin
{ Zeitformat festlegen, tfHMS wird von manchen Geräten nicht unterstützt }
MediaPlayer1.TimeFormat := tfHMS;
{ Länge des geladenen Mediums speichern }
TheLength := MediaPlayer1.Length;
with HMSRec(TheLength) do { TheLength in HMSRec-Record umwandeln }
begin
Label1.Caption := IntToStr(Hours); { Stunden in Label1 anzeigen }
Label2.Caption := IntToStr(Minutes); { Minuten in Label2 anzeigen }
Label3.Caption := IntToStr(Seconds); { Sekunden in Label3 anzeigen }
end;
end;