procedure TComLocateFrm.LocateBtnClick(Sender: TObject);
var
setLoOptions : TLocateOptions;
i : integer;
slKeys : TStrings;
begin
if ComboBox1.Items.IndexOf(ComboBox1.Text)0 then
try
slKeys := TStringList.Create;
slKeys.AddStrings(ComboBox1.Items);
ComboBox1.Items.Clear;
ComboBox1.Items.Add(ComboBox1.Text);
for i := 0 to 8 do
if i slKeys.Count then
ComboBo...[ 查看全文 ]