Dark Player II

[Nils_13]

HI,

deine Unit

Wozu sollte ich denn CircleScope/.../... wieder freigeben ?

Nach dem adden ist es schon zu spät um es freizugeben:

Delphi-Quellcode:

if not op.Execute then Exit;
for i := 0 to Op.Files.Count-1 do begin
  f := PChar(Op.Files.Strings[i]);
  sams[samc] := BASS_SampleLoad(FALSE, f, 0, 0, 3, BASS_SAMPLE_OVER_POS);
   if sams[samc] <> 0 then
    begin
     playlist.Items.Add(f);
     BASS_SampleFree(samc); // <--
     Inc(samc);
    end
   else
      Application.MessageBox('Fehler beim Hinzufügen von der Datei!', 'dAmp', mb_OKCancel +
                            mb_DefButton1 + MB_ICONQUESTION);
   end;