类似Access查找中的记忆功能

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;

2004年12月21日21:45:59