Компонент плейлист, есть проблемы.

[psycho-coder]

Сообщение от ZuBy

а если схитрить оставить стандарное Fitems: TStrings, объявить как положено, как в ListBox и тем самым ты и оставим ItemIndex и Count и переписать record убрать FileName.

Не совсем понял.

Сообщение от ZuBy

а как данные будут в Add записыватся.
как я думаю там нужен Assign, но вот как эту процедуру создать?

В зависимости от реализации.

[ZuBy]

посмотри TListBox как там Items сделано (обычный TListBox)
а вот насчет реализации. как производить запись в record?

[psycho-coder]

Сообщение от Пепел Феникса

а почему бы не использовать св-во Object у TStringList'а?
(можно сделать своего наследника от этого класса чтоб с указателями не мучатся)
ведь я так понимаю его св-во Items:array of string пригодится?

А может лучше TList использовать?
ZuBy что скажешь?

[Пепел Феникса]

в ЛитБоксе там TStringList
я предлагаю чтото типа такого:

type
 PTagItem=^TTagItem;
 TTagItem=record
  Tag,FileName:String;
  Time:Integer;
 end;

var
  Form1: TForm1;
  S:TStringList;
  R:array of TTagItem;


implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 S:=TStringList.Create;
 SetLength(r,1);//для примера
 R[1]:=...//заплнили
 S.AddObject('file1',@R[1]);
end;

procedure TForm1.FormClick(Sender: TObject);//применяем
var P:PTagItem;
begin
 P:=S.Objects[1];
 P^.Tag:='...';//меняем данные
end;

можно вообще без массива(на функах New и тд)

могу написать класс потомок TStringList который можно будет использовать в компоненте вместо ListBox...добавлю в него св-ва нужные
(скрою всю динамику с глаз)

[ZuBy]

я пробовал но у меня не получилось до конца, может просто из-зи того что я устал.
я пробовал, TListItems подключал и TStrings полностью переписывал, но увы ((.

[psycho-coder]

У меня с наследственностью проблемы, не до конца понимаю как это работает, поэтому и приходится пере изобретать велосипед((

[Пепел Феникса]

у меня нормально

[ZuBy]

Сообщение от psycho-coder

У меня с наследственностью проблемы, не до конца понимаю как это работает, поэтому и приходится пере изобретать велосипед((

у меня тоже, если бы не было этих проблем, то я бы тему не постил.
а вообще у меня это только 2-ой компонент, и я не силён в таком кодинге.

[ZuBy]

а кто нить делал что нить подобное и как сделать именно запись в record и со всем что написано выше...

[ZuBy]

желательно использовать первый пример psycho-coder'а.