ListView как узнать последнюю строку?

[Кольша]

ну дак вот я сделал плеер на bass.dll и у меня вопрос как узнать первую и последнюю строку в ListView? ListView у меня плей лист и мне надо узнать когда последняя песня и первая а то у меня ошибки выбивают если играет последняя песня и первая при переключения назад впперед((

[Stilet]

 with ListView1 do Items[Items.Count-1].Caption;

Даст последний элемент, если конечно лист не пуст совсем

[Кольша]

да спасяб я уже разобрался вот мож кому над
послядняя
if Playlist.ItemIndex = Playlist.Items.Count-1 then
......//код
end;
первая
if Playlist.ItemIndex = 0 then
код
end;
Playlist=ListView1 просто у меня плеер)))

[Кольша]

как можнно удалить выбранную строку из ListView???

[inndim]

ListView1.DeleteSelected;

[Кольша]

не эт не подходит он удалять та удалят но у меня ж плеер он кароче удалят а трек переходит на другу позицию кароче удаляеться нормально только если удаляем последний трек а так нет((

[kettanaito]

Кольша, на примере ListBox:

procedure TForm1.Button1Click(Sender: TObject);
var index:integer;
begin
// Проверка на пустоту и выделенный трек
if (ListBox.ItemIndex<>-1) and (ListBox.Items.Count<>0) then
begin
// Событие если выделенный трек это первый трек в списке:
  if ListBox.ItemIndex=0 then
    begin
    index:=ListBox.ItemIndex;
    ListBox.DeleteSelected;
    if ListBox.Items.Count<>0 then ListBox.ItemIndex:=index; // Возвращаем тот же индекс
    end
  else
// Если не первый:
  begin
  index:=ListBox.ItemIndex;
  ListBox.DeleteSelected; ListBox.ItemIndex:=index-1; // Возвращаем позицию на единицу назад. "+1" - на единицу вперед
end;
end;
end;

Используя ListBox.ItemIndex:=index+1 нужно будет описать действия, если выделенный трек последний. Что-то такое нужно?

[Кольша]

извени не подходит лан забейте,посмотрите кто неть кусок кода ниже приведу

procedure TForm1.Find(Directory: String);
var
  fn: TSearchRec;
  Finds,i: integer;
  ID2Tag: TID3v2;
  AllLength: Cardinal;
begin
  i:=0;
  AllLength:=0;
  Playlist.Clear;
  ID2Tag:=TID3v2.Create;
  Finds:=FindFirst(Directory + '\*.mp3',faAnyFile,fn);
  while Finds = 0 do begin
    ID2Tag.ReadFromFile(Directory + '\' + fn.Name);
    Path[i]:=Directory + '\' + fn.Name;
    with Playlist.Items.Add do begin
      Caption:=ID2Tag.TrackString + '. ' + ID2Tag.Artist + ' - ' + ID2Tag.Title;
      if Player.Open(Directory + '\' + fn.Name) then begin
        SubItems.Add(FormatDateTime('nn:ss', Player.PlayLength / (1000 * 24 * 60 * 60)));
        AllLength:=AllLength + Player.PlayLength;
      end;
    end;
    Finds:=FindNext(fn);
    inc(i);
  end;
  FindClose(fn);
  AllLengthLabel.Caption:=FormatDateTime('nn:ss', AllLength / (1000 * 24 * 60 * 60));
  ID2Tag.Free;
end;

как через это или немного по другому прогрнать не папку а 1 трек??????

У нас принято оформлять код специальным тегом. Кнопка #. Модератор

[Кольша]

спасиб модер я просто не знал я на вашем форуме недавно

[Anfall]

как через это или немного по другому прогрнать не папку а 1 трек??????

Не совсем понятно о чем вы.

Скорее всего с помощью opendialog.

if opendialog1.execute then
begin

//путь до файла будет в OpenDialog1.FileName

end;