Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

плейлист [D7]

Делфи © (2006-11-15 11:44:00)
есть плелист (*.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 12:04:00) [1]

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

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

Делфи (2006-11-15 11:58:00) [2]
усе понял!
Fonlys{время}:=StrToInt(
copy(//копируем
ltext ,//из строки
pos( ':',ltext)+1 ,//от :
3);
так?

Рамиль (2006-11-15 11:55:00) [3]
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 Countcharacters or elements starting at S[Index].

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »