var
i: Integer;
str: string;
strlist: TStringlist;
begin
for i:= 0 to dblistbox1.items.count do
begin
str:= dblistbox1.Items.Strings[i]);
if copy(str,1,1)='A' then
Strlist.add(str);
end;
showmessage(strlist.text);
end;
i: Integer;
str: string;
strlist: TStringlist;
begin
for i:= 0 to dblistbox1.items.count do
begin
str:= dblistbox1.Items.Strings[i]);
if copy(str,1,1)='A' then
Strlist.add(str);
end;
showmessage(strlist.text);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货