文档章节

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

涂孟超
 涂孟超
发布于 2014/09/26 15:37
字数 183
阅读 2
收藏 0
点赞 0
评论 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
博文 2004
码字总数 14107
作品 0
深圳
程序员
Code - Windows查找指定文件

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

NDSM ⋅ 2014/06/03 ⋅ 0

文件查找(c语言 findfirst函数,findnext函数)

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

赵西元 ⋅ 2012/09/05 ⋅ 0

C/C++标准库和大多数版本都有的库里,有木有搜索目录的函数?

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

刘地 ⋅ 2012/08/23 ⋅ 7

Algorithm: STD C++文件夹内容读取.

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

SHIHUAMarryMe ⋅ 2016/06/24 ⋅ 0

c++ framework 4.5

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

stanley0614 ⋅ 2015/07/21 ⋅ 0

Winform开发框架之数据访问层的设计

我在前面几篇介绍过我的Winform开发框架的相关内容,其中主要集中在界面展现以及各层的总体设计上,还没有空来得及深入进行各个重要细节的讲解,今天我们来介绍、讨论下我的Winform开发框架之...

长平狐 ⋅ 2012/06/11 ⋅ 0

Winform开发框架之数据访问层的设计

我在前面几篇介绍过我的Winform开发框架的相关内容,其中主要集中在界面展现以及各层的总体设计上,还没有空来得及深入进行各个重要细节的讲解,今天我们来介绍、讨论下我的Winform开发框架之...

长平狐 ⋅ 2012/08/22 ⋅ 0

C++获取一个文件夹下的所有文件名(转)

C++获取一个文件夹下的所有文件名 window + vs2005: #ifndef FUNCH #define FUNCH #include #include #include #include using namespace std; vector & getfilelist(char *foldname) { vec......

云栖希望。 ⋅ 2017/12/10 ⋅ 0

基于我的Winform开发框架扩展而成的WCF开发框架

一直以来,多数时间在开发一些Winform共享软件,经过多年的积累,逐渐形成比较成熟稳定的Winform开发框架,并结合Web项目开发经验、代码生成工具、相关的控件开发及项目开发经验,逐渐形成一...

长平狐 ⋅ 2012/08/22 ⋅ 0

基于我的Winform开发框架扩展而成的WCF开发框架

一直以来,多数时间在开发一些Winform共享软件,经过多年的积累,逐渐形成比较成熟稳定的Winform开发框架,并结合Web项目开发经验、代码生成工具、相关的控件开发及项目开发经验,逐渐形成一...

长平狐 ⋅ 2012/06/11 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

Spring | IOC AOP 注解 简单使用

写在前面的话 很久没更新笔记了,有人会抱怨:小冯啊,你是不是在偷懒啊,没有学习了。老哥,真的冤枉:我觉得我自己很菜,还在努力学习呢,正在学习Vue.js做管理系统呢。即便这样,我还是不...

Wenyi_Feng ⋅ 今天 ⋅ 0

博客迁移到 https://www.jianshu.com/u/aa501451a235

博客迁移到 https://www.jianshu.com/u/aa501451a235 本博客不再更新

为为02 ⋅ 今天 ⋅ 0

win10怎么彻底关闭自动更新

win10自带的更新每天都很多,每一次下载都要占用大量网络,而且安装要等得时间也蛮久的。 工具/原料 Win10 方法/步骤 单击左下角开始菜单点击设置图标进入设置界面 在设置窗口中输入“服务”...

阿K1225 ⋅ 今天 ⋅ 0

Elasticsearch 6.3.0 SQL功能使用案例分享

The best elasticsearch highlevel java rest api-----bboss Elasticsearch 6.3.0 官方新推出的SQL检索插件非常不错,本文一个实际案例来介绍其使用方法。 1.代码中的sql检索 @Testpu...

bboss ⋅ 今天 ⋅ 0

informix数据库在linux中的安装以及用java/c/c++访问

一、安装前准备 安装JDK(略) 到IBM官网上下载informix软件:iif.12.10.FC9DE.linux-x86_64.tar放在某个大家都可以访问的目录比如:/mypkg,并解压到该目录下。 我也放到了百度云和天翼云上...

wangxuwei ⋅ 今天 ⋅ 0

PHP语言系统ZBLOG或许无法重现月光博客的闪耀历史[图]

最近在写博客,希望通过自己努力打造一个优秀的教育类主题博客,名动江湖,但是问题来了,现在写博客还有前途吗?面对强大的自媒体站点围剿,还有信心和可能型吗? 至于程序部分,我选择了P...

原创小博客 ⋅ 今天 ⋅ 0

IntelliJ IDEA 2018.1新特性

工欲善其事必先利其器,如果有一款IDE可以让你更高效地专注于开发以及源码阅读,为什么不试一试? 本文转载自:netty技术内幕 3月27日,jetbrains正式发布期待已久的IntelliJ IDEA 2018.1,再...

Romane ⋅ 今天 ⋅ 0

浅谈设计模式之工厂模式

工厂模式(Factory Pattern)是 Java 中最常用的设计模式之一。这种类型的设计模式属于创建型模式,它提供了一种创建对象的最佳方式。 在工厂模式中,我们在创建对象时不会对客户端暴露创建逻...

佛系程序猿灬 ⋅ 今天 ⋅ 0

Dockerfile基础命令总结

FROM 指定使用的基础base image FROM scratch # 制作base image ,不使用任何基础imageFROM centos # 使用base imageFROM ubuntu:14.04 尽量使用官方的base image,为了安全 LABEL 描述作...

ExtreU ⋅ 昨天 ⋅ 0

存储,对比私有云和公有云的不同

导读 说起公共存储,很难不与后网络公司时代的选择性外包联系起来,但尽管如此,它还是具备着简单和固有的可用性。公共存储的名字听起来也缺乏专有性,很像是把东西直接堆放在那里而不会得到...

问题终结者 ⋅ 昨天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部