Delphi Listbox + CheckListbox

Я работаю над программой отправки mp3. Я использую список для отображения простого списка mp3-файлов (1.mp3,2.mp3.3.mp3 и т. Д.) И контрольного списка, в котором находятся соединения (ip-адрес1, ip-адрес2). Я хочу знать, как я могу сохранить элементы списка с отмеченными элементами checklistbox (ссылки)? Например, если я хочу отправить 1.mp3 в ipadress1 и ipadress2, то 2.mp3.3.mp3 только для ipadress2 и т. Д.). Я хочу использовать кнопку «Отправка файла», чтобы сохранить его в некоторых файлах txt , Любая идея? Спасибо за ответы!Delphi Listbox + CheckListbox

procedure TForm1.ListBox1Click(Sender: TObject); 
var 
Item : TStringList; 
I: Integer; 
begin 
if ListBox1.ItemIndex = -1 then 
    Exit ; 
if Assigned(ListBox1.Items.Objects[ListBox1.ItemIndex]) then 
    Item := ListBox1.Items.Objects[ListBox1.ItemIndex] as TStringList 
else 
begin 
    Item := TStringList.Create ; 
    ListBox1.Items.Objects[ListBox1.ItemIndex] := Item; 
end ; 
for I := 0 to CheckListBox1.Items.Count - 1 do 
CheckListBox1.Checked[I] := False; 
for I := 0 to Item.Count - 1 do 
CheckListBox1.Checked[CheckListBox1.Items.IndexOf(Item[I])] := True; 
end; 

procedure TForm1.CheckListBox1ClickCheck(Sender: TObject); 
var 
Item : TStringList; 
I : Integer; 
begin 
if ListBox1.ItemIndex = -1 then 
begin 
    ShowMessage('Select the mp3 first!'); 
    Exit ; 
    end ; 
if Assigned(ListBox1.Items.Objects[ListBox1.ItemIndex]) then 
Item := ListBox1.Items.Objects[ListBox1.ItemIndex] as TStringList 
else 
begin 
    Item := TStringList.Create; 
    ListBox1.Items.Objects[ListBox1.ItemIndex] := Item; 
end; 
Item.Clear; 
for I := 0 to CheckListBox1.Items.Count - 1 do 
if CheckListBox1.Checked[I] then 
    Item.Add(CheckListBox1.Items[I]); 
end;

источник

2012-10-30 Steve88

Пожалуйста, отформатируйте ваши образцы кода для чтения, если вы хотите нашей помощи. –

возможно, вы можете объединить обе коробки в одно дерево TreeView, а затем сохранить/восстановить его в дерево, например XML или JSON –

Вы можете сохранить его в файле ini. Я думаю, это соответствует вашему требованию.

использование mp3-файла в качестве имени раздела, IP, как имя = значение пары

[1.mp3] 
ip1=1 
ip2=1 

[2.mp3] 
ip2=1 
ip4=1

источник

2012-10-30 09:44:30 Darkerstar

Я хочу использовать эти сохраненные тексты (имена с подключением ip) для загрузки после другого файла – Steve88

@ steve88 Итак, вы скопировали ini -file от старого файла до нового –

Вы можете использовать файл XML, если у вас есть какие-то дополнительные опции. Вы можете добавлять атрибуты столько, сколько хотите.

<Body> 
    <F1.mp3 ipaddress1="True" ipaddress2="False"/> 
    <F2.mp3 ipaddress1="False" ipaddress2="True"/> 
</Body>

источник

2012-10-30 11:35:26 Zeina

Я знаю, но я хочу знать событие нажатия кнопки. как я могу добавить имена файлов MP3 и их включить ip-адреса в текстовый файл? 1 файл и их адреса на 1.txt, 2-й файл и их выбранные адреса на 2nd.txt и т. Д. – Steve88

ответ

Смежные вопросы