文档章节

TClientDataSet[14]: 测试 FindFirst、FindNext、FindLast、FindPrior、Found

涂孟超
 涂孟超
发布于 2014/09/26 15:37
字数 183
阅读 2
收藏 0

//先在窗体添加 ClientDataSet1 和两个 Button

{ 初始化测试数据 }
procedure TForm1.FormCreate(Sender: TObject);
begin
  with ClientDataSet1 do begin
    FieldDefs.Add('ID', ftInteger);
    FieldDefs.Add('Name', ftString, 6);
    FieldDefs.Add('Age', ftWord);
    CreateDataSet;
    AppendRecord([1, 'A',    11]);
    AppendRecord([2, 'AB',   22]);
    AppendRecord([3, 'ABC',  33]);
    AppendRecord([4, 'ABCD', 44]);
    AppendRecord([5, 'a',    55]);
    AppendRecord([6, 'ab',   66]);
    AppendRecord([7, 'abc',  77]);
    AppendRecord([8, 'abcd', 88]);
  end;
end;

{ FindFirst、FindNext、FindLast、FindPrior }
procedure TForm1.Button1Click(Sender: TObject);
begin
  ClientDataSet1.Filter := 'Name Like ''%c%''';
  ClientDataSet1.FilterOptions := [foCaseInsensitive];
  ClientDataSet1.Filtered := True;

  if ClientDataSet1.FindFirst then ShowMessage(ClientDataSet1['Name']); { ABC }
  if ClientDataSet1.FindNext then ShowMessage(ClientDataSet1['Name']);  { ABCD }
  if ClientDataSet1.FindLast then ShowMessage(ClientDataSet1['Name']);  { abcd }
  if ClientDataSet1.FindPrior then ShowMessage(ClientDataSet1['Name']); { abc }

  ClientDataSet1.Filtered := False;
end;

{ 遍历过滤结果 }
procedure TForm1.Button2Click(Sender: TObject);
begin
  ClientDataSet1.Filter := 'Name Like ''%c%''';
  ClientDataSet1.FilterOptions := [foCaseInsensitive];
  ClientDataSet1.Filtered := True;

  ClientDataSet1.FindFirst;
  while ClientDataSet1.Found do
  begin
    ShowMessage(ClientDataSet1['Name']); { ABC / ABCD / abc / abcd}
    ClientDataSet1.FindNext;
  end;

  ClientDataSet1.Filtered := False;
end;

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2010/02/03/1662699.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
Code - Windows查找指定文件

函数名称 _findfirst 头文件 io.h 函数功能 搜索与指定的文件名匹配的第一个实例,成功返回实例句柄,否则返回-1L 函数原型 long findfirst( char *filespec, struct finddata_t *fileinfo ...

NDSM
2014/06/03
0
0
文件查找(c语言 findfirst函数,findnext函数)

文件查找finddatat的使用 那么到底如何查找文件呢?我们需要一个结构体和几个大家可能不太熟悉的函数。这些函数和结构体在的头文件中,结构体为struct finddatat ,函数为findfirst、findnex...

赵西元
2012/09/05
0
0
C/C++标准库和大多数版本都有的库里,有木有搜索目录的函数?

findfirst和findnext只能搜索文件,求搜索目录的函数

刘地
2012/08/23
976
7
Algorithm: STD C++文件夹内容读取.

首先我们来看一个例子: 上面的例子:我们能够读取F盘目录下面的所有格式为mp4的文件. 其中需要注意的头文件 #include<io.h>, 以及3个函数: findfirst(const char* dir, struct finddatat* fi...

SHIHUAMarryMe
2016/06/24
54
0
c++ framework 4.5

大家好: 我现在编译了windows 64位 framework4.0 的组件,如果使用C# framework4.0的工程加载组件启动是成功的。 如果使用framework4.5加载启动失败,跟踪代码,发现底层调用C++代码时候出错...

stanley0614
2015/07/21
159
0

没有更多内容

加载失败,请刷新页面

加载更多

OSChina 周日乱弹 —— 钱不还,我就当你人不在了

Osc乱弹歌单(2018)请戳(这里) 【今日歌曲】 @莱布妮子 :分享Bigleaf的单曲《小鹿》 《小鹿》- Bigleaf 手机党少年们想听歌,请使劲儿戳(这里) 周日在家做什么? 做手工呀, @poorfis...

小小编辑
43分钟前
15
2
EOS docker开发环境

使用eos docker镜像是部署本地EOS开发环境的最轻松愉快的方法。使用官方提供的eos docker镜像,你可以快速建立一个eos开发环境,可以迅速启动开发节点和钱包服务器、创建账户、编写智能合约....

汇智网教程
今天
17
0
《唐史原来超有趣》的读后感优秀范文3700字

《唐史原来超有趣》的读后感优秀范文3700字: 作者:花若离。我今天分享的内容《唐史原来超有趣》这本书的读后感,我将这本书看了一遍之后就束之高阁了,不过里面的内容一直在在脑海中回放,...

原创小博客
今天
23
0
IC-CAD Methodology知识图谱

CAD (Computer Aided Design),计算机辅助设计,指利用计算机及其图形设备帮助设计人员进行设计工作,这个定义同样可以用来近似描述IC公司CAD工程师这个岗位的工作。 早期IC公司的CAD岗位最初...

李艳青1987
今天
26
0
CompletableFuture get方法一直阻塞或抛出TimeoutException

问题描述 最近刚刚上线的服务突然抛出大量的TimeoutException,查询后发现是使用了CompletableFuture,并且在执行future.get(5, TimeUnit.SECONDS);时抛出了TimeoutException异常,导致接口响...

xiaolyuh
今天
13
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部