+ findclose added

This commit is contained in:
pierre 1999-01-22 16:25:58 +00:00
parent f851a800c9
commit ec93b43e64

View File

@ -134,6 +134,7 @@ function diskfree(drive:byte):longint;
function disksize(drive:byte):longint; function disksize(drive:byte):longint;
procedure findfirst(const path:pathstr;attr:word;var f:searchRec); procedure findfirst(const path:pathstr;attr:word;var f:searchRec);
procedure findnext(var f:searchRec); procedure findnext(var f:searchRec);
procedure findclose(var f:searchRec);
{Is a dummy:} {Is a dummy:}
procedure swapvectors; procedure swapvectors;
@ -755,6 +756,10 @@ begin
dossearchrec2searchrec(f); dossearchrec2searchrec(f);
end; end;
procedure findclose(var f:searchRec);
begin
end;
procedure swapvectors; procedure swapvectors;
{For TP compatibility, this exists.} {For TP compatibility, this exists.}
@ -980,7 +985,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.11 1999-01-18 16:22:51 jonas Revision 1.12 1999-01-22 16:25:58 pierre
+ findclose added
Revision 1.11 1999/01/18 16:22:51 jonas
- removed "noattcdq" define - removed "noattcdq" define
Revision 1.10 1998/12/10 16:05:39 daniel Revision 1.10 1998/12/10 16:05:39 daniel