Delphi 德尔福列表框&x2B；复选框
我正在做一个mp3发送程序。我使用一个列表框来显示一个简单的mp3文件名列表（1.mp3、2.mp3、3.mp3等）和一个连接（ip地址1、ip地址2）所在的复选框。我想知道如何将带有checklistbox选中项的listbox项保存为（链接）？例如，如果我想将1.mp3发送到ipadress1和ipadress2，则2.mp3、3.mp3仅用于ipadress2等。我想使用“文件发送”按钮将其保存到一些txt文件。有什么想法吗？谢谢你的回答Delphi 德尔福列表框&x2B；复选框,delphi,delphi-5,Delphi,Delphi 5,我正在做一个mp3发送程序。我使用一个列表框来显示一个简单的mp3文件名列表（1.mp3、2.mp3、3.mp3等）和一个连接（ip地址1、ip地址2）所在的复选框。我想知道如何将带有checklistbox选中项的listbox项保存为（链接）？例如，如果我想将1.mp3发送到ipadress1和ipadress2，则2.mp3、3.mp3仅用于ipadress2等。我想使用“文件发送”按钮将其保存到一些txt文件。有什么想法吗？谢谢你的回答 procedure TForm1.ListBox1
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;
您可以将其保存到ini文件。我认为它符合你的要求 使用mp3文件名作为节名，ip作为名称=值对
[1.mp3]
ip1=1
ip2=1
[2.mp3]
ip2=1
ip4=1
您可以将其保存到ini文件。我认为它符合你的要求 使用mp3文件名作为节名，ip作为名称=值对
[1.mp3]
ip1=1
ip2=1
[2.mp3]
ip2=1
ip4=1
如果有其他选项，可以使用xml文件。 您可以添加任意多的属性
<Body>
<F1.mp3 ipaddress1="True" ipaddress2="False"/>
<F2.mp3 ipaddress1="False" ipaddress2="True"/>
</Body>
如果有其他选项，可以使用xml文件。 您可以添加任意多的属性
<Body>
<F1.mp3 ipaddress1="True" ipaddress2="False"/>
<F2.mp3 ipaddress1="False" ipaddress2="True"/>
</Body>