Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.12.03;
Скачать: CL | DM;

Вниз

плейлист   Найти похожие ветки 

 
Делфи   (2006-11-15 11:44) [0]

есть плелист (*.m3u например от вампа)

пример
#EXTINF:420,Ария - Будем жить , мать Россия!
D:\Music\Russian\Ария\Ария - Budem jit, mat Rossiya!.mp3

Сначала заношу в плейлист заголовок (Ария - Будем жить , мать Россия!)
Потом я пытаюсь считать время (420) нахожу строчку с Заголовоком (ftitle)
затем нахожу ":"(8) и ","(12) и считываю с 9 по 12, но он копирует с 8 по 21?????
var
ftitle:=Flist{форма с плелистом}.lplaylist.Items[Flist.lplaylist.itemIndex];
Reset(fplist);
while not EoF(fplist) do
 begin
 readln(fplist, ltext);//чиатем строку
 if pos( (ftitle),ltext)<>0 then //находим загаловок
  begin
  if pos( (","+ftitle),ltext)<>0 then//находим ","с заголовком (дабы простые "," не ловить)
   begin
   Fonlys{время}:=StrToInt(
    copy(//копируем
    ltext ,//из строки
    pos( ":",ltext)+1 ,//от :
    pos( ",",ltext)-9)); //до "," но без -9 копирует (420,Ария - Б)
Как так??????????? Хоть убей не понимаю


 
Рамиль ©   (2006-11-15 11:55) [1]

Delphi syntax:

function Copy(S; Index, Count: Integer): string;

S is an expression of a string or dynamic-array type. Index and Count are integer-type expressions. Copy returns a substring or subarray containing Count characters or elements starting at S[Index].


 
Делфи   (2006-11-15 11:58) [2]

усе понял!
Fonlys{время}:=StrToInt(
   copy(//копируем
   ltext ,//из строки
   pos( ":",ltext)+1 ,//от :
   3);
так?


 
Рамиль ©   (2006-11-15 12:04) [3]


> Делфи   (15.11.06 11:58) [2]

если все время три символа, то так.



Страницы: 1 вся ветка

Текущий архив: 2006.12.03;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.04 c
15-1163178255
Ne-Ld
2006-11-10 20:04
2006.12.03
Назовите, пожалуйста, главные признаки проектов, в которых не сто


15-1163136696
DelphiN!
2006-11-10 08:31
2006.12.03
Сегодня начальство попросило написать свою OC


15-1163344973
G13MO
2006-11-12 18:22
2006.12.03
Можно ли раскомпилировать .exe файл c помощью Delphi 7


2-1163679128
KyRo
2006-11-16 15:12
2006.12.03
Почему нет конекта ?


15-1163282054
Greenchel
2006-11-12 00:54
2006.12.03
Считывание информации с сайта