Hallo
Kleine frage zu randomize. ich habe hier diese Mediaplayer procedur die eine resource datei abspielt
Delphi-Quellcode:
procedure test;
var
rStream: TResourceStream;
fStream: TFileStream;
fname: string;
begin
fname := ExtractFileDir(Paramstr(0))+'test1.mp3';
rStream := TResourceStream.Create(hInstance, 'test1', RT_RCDATA) ;
try
fStream := TFileStream.Create(fname, fmCreate) ;
try
fStream.CopyFrom(rStream, 0) ;
finally
fStream.Free;
end;
finally
rStream.Free;
end;
MediaPlayer1.Close;
MediaPlayer1.FileName:=fname;
MediaPlayer1.Open;
MediaPlayer1.Play;
end;
Dazu habe ich 16 Resourcen ,jede resource ist eine kleine Audio datei. Wie kann ich nun via Randomize die prozedur umschreiben das jedesmal eine andere resource datei abgespielt wird?
Stehe gerade echt auf dem schlauch. Hoffe jemand von euch kann mir weiterhelfen...
[edit=SirThornberry]Code-Tags durch Delphi-Tags ersetzt - nächstes mal bitte die richtigen Tags verwenden - Mfg, SirThornberry[/edit]