procdure tform1.conbobox1change(sender:tobject);
var
i:integer;
begin
for i:=0 to combobox1.items.count-1 do
begin
if pos(combobox1.text,combobox1.strings[i])>0 then
combobox1.text:=combobox1.strings[i]);
end
end;
var
i:integer;
begin
for i:=0 to combobox1.items.count-1 do
begin
if pos(combobox1.text,combobox1.strings[i])>0 then
combobox1.text:=combobox1.strings[i]);
end
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货