类似Access查找中的记忆功能

核心提示： PRocedure TComLocateFrm.LocateBtnClick(Sender: TObject);var setLoOptions : TLocateOptions; i : integer; slKeys : TStrings;begin if ComboBox1.Items.IndexOf(Com

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
　　　  ComboBox1.Items.Add(slKeys.Strings[i]);
  finally
　　 slKeys.Free;
  end
  else begin
　  i := ComboBox1.Items.IndexOf(ComboBox1.Text);
　  ComboBox1.Items.Insert(0,ComboBox1.Text);
　  ComboBox1.Items.Delete(i+1);
　  ComboBox1.ItemIndex := 0;
  end;

  if rdoExactly.Checked then
　　 setLoOptions := []
  else
　　 setLoOptions := [loPartialKey];
  if Not DesDataSet.Locate('ZTM', ComboBox1.Text, setLoOptions) then
　　 MessageBox(Handle, '没有找到符合条件的记录。', '提示', 0+64);
end;