get新技能是需要付出行动的,即使看得再多也还是要动手试一试。今天图老师小编跟大家分享的是类似Access查找中的记忆功能,一起来学习了解下吧!
【 tulaoshi.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;
来源:http://www.tulaoshi.com/n/20160219/1611961.html
看过《类似Access查找中的记忆功能》的人还看了以下文章 更多>>