[sariman]

Спасибо, подскажите почему не работает процедура которая форматирует имена файлов плейлиста? Может я что-то не так делаю?:

Код:

procedure UpdatePlayListNames;
var
  I: Integer;
  FullPath, OnlyName,
  HidePath: string;
begin
  for I := 0 to LV_Count(PlayList) - 1 do
  begin
    FullPath := LV_GetItemText(PlayList, I, 1);
    OnlyName := ChangeFileExt(ExtractFileName(LV_GetItemText(PlayList, I, 1)), '');
    HidePath := ExtractFileName(LV_GetItemText(PlayList, I, 1));
    case ViewType of
      1: LV_SetItemText(PlayList, I, 1, FullPath);
      2: LV_SetItemText(PlayList, I, 1, OnlyName);
      3: LV_SetItemText(PlayList, I, 1, HidePath)
    end
  end
end;