var
i:integer;
begin
for i:=listbox1.Items.Count-1 downto 0 do
begin
if listbox1.Selected[i] then
ShowMessage(listbox1.Items.Strings[i]);
end
i:integer;
begin
for i:=listbox1.Items.Count-1 downto 0 do
begin
if listbox1.Selected[i] then
ShowMessage(listbox1.Items.Strings[i]);
end
type ddd=record
ss:string;
ee:string;
ff:string;
end;
然后存入您的数据,通过list在读取就可以了!给分吧