FindNext函数 - Borland Delphi 开发工作者手册

返回介绍

FindNext函数

发布于 2019-08-04 字数 1012 浏览 947 评论 0

SysUtils

function FindNext (var F:TsearchRec):Integer;

FindNext返回以前由FindFirst所查找的匹配文件的下一个匹配对象。

FindNext返回与在此之前由FindFirst声明的文件名和属性相一致的第二个匹配文件。搜寻记录必须是已传输给FindFirst。如果此函数是成功了,返回值是0。否则返回值是一个系统错误信息。

这个例子使用了一个卷标、一个命令为Search的按钮和一个命名为Again的按钮。当用户点击Search按钮,在指定路径下的第一个文件被发现,文件的名字和字节数显现在卷标的标题内。每一次用户按这个按钮,下一个与之匹配的文件名和其尺寸将在卷标中出现:

var

SearchRec : TSearchRec;

procedureTForm1.SearchClick(Sender : TObject);

begin

FindFirst(‘c:\delphi\bin\*.*’, faAnyFile, SearchRec);

Label1.Caption := SearchRec.Name+ ‘is’ + IntToStr(SearchRec.Size)+ ‘bytes in size’;

end;

procedureTForm1.AgainClick(Sender : TObject);

begin

FindNext(SearchRec);

Label1.Caption := SearchRec.Name+ ‘is’ + IntToStr(SearchRec.Size)+ ‘bytes in size’;

end;

上一篇:FindFirst函数

下一篇:FloatToDecimal过程

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

支持 Markdown 语法,需要帮助?

目前还没有任何评论,快来抢沙发吧!