var
i: Integer;
begin
for i := 0 to (DBListBox1.Items.Count - 1) do begin
try
if DBListBox1.Selected[i] then
begin
Edit1.Text := DBListBox1.Items[i];
Break;
end;
finally
{ do something here }
end;
end;
end;
i: Integer;
begin
for i := 0 to (DBListBox1.Items.Count - 1) do begin
try
if DBListBox1.Selected[i] then
begin
Edit1.Text := DBListBox1.Items[i];
Break;
end;
finally
{ do something here }
end;
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货