Dark Player II

[Neutral General]

Zitat von Nils_13:

Verschieben geht!

Nur wie Sorge ich dafür wenn ich z.B. 2 aufeinmal einfüge, dass jeder in seiner eigenen Spalte ist?

Mit folgenden Code füge ich es hinzu:

Delphi-Quellcode:

procedure TFormPlayer.addClick(Sender: TObject);
var
  f: PChar;
begin
if not op.Execute then Exit;
f := PChar(op.FileName);
sams[samc] := BASS_SampleLoad(FALSE, f, 0, 0, 3, BASS_SAMPLE_OVER_POS);
if sams[samc] <> 0 then
begin
 playlist.Items.Add(op.FileName);
 Inc(samc);
end
  else
      Application.MessageBox('Fehler beim Hinzufügen von der Datei!', 'dAmp', mb_OKCancel +
                            mb_DefButton1 + MB_ICONQUESTION);
end;

das mit dem mehrere Dateien laden müsste ungefähr so gehen :

Delphi-Quellcode:

procedure TFormPlayer.addClick(Sender: TObject);
var
  f: PChar;
  i : Integer;
begin
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);
     Inc(samc);
    end
   else
      Application.MessageBox('Fehler beim Hinzufügen von der Datei!', 'dAmp', mb_OKCancel +
                            mb_DefButton1 + MB_ICONQUESTION);
end;
end;