Pfad aus ListBox für Bass.dll auslesen

[Marcasso]

vor und zurück habe ich jetz so abgeändert, dass das programm nicht mehr abstürtzt. scheint so auch prima zu funktioneren...

vor

Delphi-Quellcode:

procedure TForm1.vorClick(Sender: TObject);
var pfad:string;
begin
  if (form2.ListA.Count <> 0) and (form2.ListA.ItemIndex <> -1) then
    begin
      if form2.ListA.ItemIndex = form2.ListA.Count -1 then
        form2.ListA.ItemIndex := 0
      else
        if form2.ListA.ItemIndex <> form2.ListA.Count-1 then
          form2.ListA.ItemIndex := form2.ListA.ItemIndex+1;
        form2.ListB.ItemIndex := form2.ListA.ItemIndex;
      end
    else
      if form2.ListA.ItemIndex = -1 then
        begin
          form2.ListA.ItemIndex := 0;
          form2.ListB.ItemIndex := form2.ListA.ItemIndex;
        end;
  procedures.MPPlay(true);
end;

zurück

Delphi-Quellcode:

procedure TForm1.rueckClick(Sender: TObject);
var pfad:string;
begin
  if form2.ListA.Count <> 0 then
    if form2.ListA.ItemIndex = 0 then
      form2.ListA.ItemIndex := form2.ListA.Count -1
    else
      if form2.ListA.ItemIndex <> 0 then
        form2.ListA.ItemIndex := form2.ListA.ItemIndex -1;
    form2.ListB.ItemIndex := form2.ListA.ItemIndex;
   if form2.ListA.ItemIndex = -1 then
   begin
     form2.ListA.ItemIndex:=0;
     form2.ListB.ItemIndex:=form2.ListA.ItemIndex;
   end;
  procedures.MPPlay(true);
end;